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NUEVAS TENDENCIAS 



Abrumadora ha sido realmente la respuesta al 
sorteo que propusimos en el numero especial de 
verano. Ahora llega el momento de comprobar 
si vuestro nombre aparece en la relacion de afor- 
tunados. Si estais incluidos, entonces enhora- 
buena. De lo contrario no desespereis, es inten- 
tion de quienes hacemos INPUT continuar ofre- 
ciendo la posibilidad de obtener algun premio 
lo mas a menudo que permitan las circunstan- 
cias. Este es el caso del ganador en el concurso 
convocado por Anaya Multimedia desde la re- 
vista. Como resultado acudio a la feria PCW en 
Londres uno de los lectores mas habilidosos des- 
cifrando claves. Segun cuentan las cronicas se di- 
virtio de lo lindo. Septiembre una vez mas ha 
sido prodigo en la aparicion de rumores y nue- 



vos productos. La feria britanica antes mencio- 
nada junto con el Sonimag han servido para 
apreciar como parecen confirmarse dos tenden- 
cias de cara al futuro de la microinformatica. Por 
un lado los ordenadores destinados a juegos con 
mas memoria, capacidades graficas y sonido. 
siendo buena muestra el nuevo Spectrum +2 y 
los MSX 2. Por otro lado, los ordenadores com- 
patibles PC de bajo precio de venta, situandose 
al alcance de muchos mas usuarios, sistemas que 
hasta hace poco eran un lujo asiatico para quie- 
nes no fueran empresas o profesionales. El de- 
nominador comun de ambas tendencias es la ba- 
jada de precios aplicada en septiembre. De lo 
que no cabe duda es que nos encontramos ante 
el umbral de una nueva etapa. 



LOS MEJORES DE INP 



Hemos pensado que es interesante disponer de un ranking que El resultado de las votaciones sera publicado en cada numerc 

ponga en claro, mes a mes, cuales son los programas preferidos de INPUT. 

de nuestros lectores. Para ello, es obligado preguntaros directamen- Entre los votantes sortearemos 10 cintas de los titulos que pidais 

te y tener asi el mejor termometro para conocer vuestras preferen- en vuestros cupones. 

cias. Podeis votar por cualquier programa aunque no haya sido co- Nota: No es preciso que corteis la revista, una copia hecha i 

mentado todavia en INPUT. maquina o una simple fotocopia sirven. 

Enviad vuestros votos a: LOS MEJORES DE INPUT P.° de la Castellana, 93. Planta 14. 28046 Madrid 



Primer titulo elegido I i i i 



Tercer titulo elegido I i i l 

Qu6 ordenador tienes I i l 

l.-Apellido I i i i I .L 



Fecha de nacimiento I i i l 

Direcci6n I I I I I i — i — i — L 

Provincia I i i I I I I I L 
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ELIGE TUS PROGRAMAS 

Segundo titulo elegido 



J L 



J L 



I I I I L 



I I I I I I L 



Programa que te gustaria conseguir L 
Nombre l__i I I I I I i l 



2." Apellido 



J I I I I I L 



Telefono l__i i i i i I I L 

Localidad I i i i I I I I L 
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Actudlidcicl 



MONSTRUOS POR CORREO 



La firma Drosoft acaba de 
Lanzar La versi6n en 
casteLLano del programa 
"Monstruos por correo", que 
hace furor entre Los 
usuarios norteameri canos 
deL Commodore 64. En eL 
pr6ximo numero de La 
revista daremos cumpLida 
cuenta de eL. 

***************** 



RELEVO EN GALERIAS 



Thomas Enders, quien desde 
su cargo como jefe de 
compras de La divisi6n 
"ON-Line" did eL empujin 
definitivo a La 
mi croi nf ormati ca en Los 
aLmacenes GaLerias 
Preciados, acaba de 
regresar a Los EE.UU. para 
ampLiar sus estudios en La 
universidad de YaLe. 
EL distribuidor de software 
SERMA no Lo dud& un 
momento, haciendoLe entrega 
de una pLaca de 
agradecimiento por su obra, 
acto aL que acudio una 
representat iva muestra de 
La prensa especi aLizada. 

***************** 



MUSICA Y TECNOLOGIA 



Acaba de LLegar a nuestras 
manos eL cuarto numero de 



La revista especiali zada 
"Musica y TecnoLogia". Su 
contenido es denso y 
cuidado, tratando gran 
variedad de temas que han 
de interesar a quienes 
consideran que saber de 
mdisica no es soLo dominar 
un instrumento. 

***************** 



EL 64C EN SONIMAG 



Como anunciabamos en estas 
mismas paginas, Commodore 
sigue dispuesta a continuar 
en La Unea deL 64. EL 
modeLo que toma eL reLevo 
es eL 64C, que ofrece el 
mismo aspecto externo deL 
128. La verdadera novedad 
La constituye eL sistema 
operativo GEOS, que trabaja 
con ventanas e iconos, 
haciendo mas fcici L eL 
manejo deL ordenador f rente 
aL tec Lado. Asi Lo pudimos 
constatar en eL reciente 
Sonimag. 

***************** 



secci6n del Commodore 16 
aparecen 17 referencias. 

***************** 



NUEVO CATALOGO ABC 



La firma ABC anaLog, una de 
Las pioneras en La 
importaci6n de software 
para mi croordenadores, nos 
acaba de remitir su 
cataLogo deL 15 de 
septirmbre. En eL continua 
con su firmula de aglutinar 
Los tituLos de juego de 
mayor exito deL momento. 
cabe resaLtar que en La 



NUEVA LINEA INVES 



Invest r6ni ca, La empresa 
que impLant6 Los 
ordenadores de SincLair en 
nuestro pals, acaba de 
optar por una nueva 
estrategia en su intento de 
poner La electr6nica de 
consumo aL aLcance de 
todos- 

Por un Lado entra en Los 
equipos de sonido con una 
cadena LLamada 100 HF, que 
puede ver sus prestaciones 
ampLiadas en base a un 
disco compacto y eL 
sintonizador digitaL en eL 
modeLo CD 300 HF, aunque 
tambien existe eL compact 
disk por separado, DISC CD 
200. 

Por otro Lado entra en eL 
mundo de Los ordenadores 
compatibLes con el estSndar 
PC con tres modeLos: INVES 
256X, PC 640A y PC 640X. 
EL denominador coman de 
toda La Llnea INVES es su 
bajo precio de venta en 
reaLaciAn con sus 
prestaciones. 

La entrada de estas grandes 
firmas di stribuidoras 
parece que vienen a hacer 
reaLidad eL gran sueno de 
sir CLive SincLair, quien 
hace tiempo Lanz6 equipos 
de HIFI a bajo precio en el 
Reino Unido, aunque 
utiLizando La tecnoLogla 
mas Llmitada de aqueL 
momento. 

***************** 
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DESENREDA 
TUS CADENAS 



CO MPARACION Y ORDENACIC 

DE CADEN/ 

TROCEAC 



Las cadenas de caracteres se utilizan 
en toda clase de programas; de hecho 
se usan en todas las aplicaciones que 
requieran a! go mas que simples nume- 
ros. Aquf presentamos unas cuantas 
maneras de sacar de ellas el maximo 
provecho. 

Una cadena esta constitmda por 
una coleccion de caracteres. Puede 
tratarse de letras, numeros, signos de 
puntuacion o cualquier otro de los 



sfmbolos del teclado. Ademas puedes 
ponerlas juntas en el orden que quie- 
ras. 

Naturalmente lo normal es que una 
cadena contenga algun tipo de infor- 
mation util. Por ejemplo, la cadena 
«PEDRO DIAZ 241061 S» contiene 
el nombre, el primer apellido, la fecha 
de nacimiento y el estado civil de una 
determinada persona. En total cuatro 
elementos de information. A su vez la 
fecha de nacimiento se puede subdivi- 
de en dfa, mes y ano, por lo 
que en realidad hay un total 
de seis elementos 
de information. 




6C0M0 ES DE LARGA LA CADEN/ 
EL PR0CES0 DE TEXTC 



Son muchas las ocasiones en las qu 
sucle ser necesario subdividir (tn 
cear) una cadena de caracteres pai 
extraer determinadas porciones de ir 
formation, tal como ocurre con la ft 
cha del ejemplo anterior. En otn 
ocasiones puede ser necesario sum; 
las cadenas. Puede que a veces tan 
bien quieras medir la longitud de la c< 
dena o calcular el valor de alguna d 
sus partes numericas. Todo esto s 
puede hacer utilizando unas cuant£ 
palabras clave del BASIC. 

La suma de cadenas, la Hamad 
concatenation, es la mas facil de est£ 
operaciones. Para ejecutarla no tiene 
mas que utilizar el simbolo 4-. Si pc 
ejemplo A$ es igual a «HE» y B$ e 
igual a «AQUI», entonces A$ + B 
es igual a «HE AQUI». La concate 
nation es una operation que se limit 
a juntar unas cadenas de caractere 
con otras; debe quedar claro que pon 
unas a continuation de otras, pero n 
suma sus valores numericos. Asi 
«439» + «241» es igual a «439241» 
no a 680. 



COMPARACION DE CADENAS 

. — : si 

El ordenador, ademas de pone 
unas cadenas junto a otras, es capa 
de compararlas para ver si son igua 
les, como ocurre en este juego de adi 
vinanzas: 

^^^H para C-64 y Vic-20 

10 G=1:0N INT(RND(1)*6)+1 
GOTO 20,30,40,50,60,70 
20 B$="MANZANA":GOTC 80 
30 B$="NARANJ A": GOTO 80 
40 B$="PLATAN0":G0TO 80 
50 BS="LIP^I0N":G0T0 80 
60 B$="MEL0N":G0T0 80 
70 B$="PERA":G0T0 80 
80 PRINT'TSHIFT+CLR/HOMEIISO 

UNA FRUTA, CUAL SOY?" 
90 INPUT A$ 
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100 IF A$=BS THEN GOTO 155 

110 G=G+1 

120 PRINT"MAL ! " 

130 FOR J=1 TO 2000 

140 NEXT J 

150 GOTO 90 

155 IF (3=1 THEN PRINT "ACER 
TASTE A LA PRIP1ERA":END 

160 PRINT "ACERTASTE TRAS"; G 
X;"INTENTOS" 

170 END 

La linea 10 pone a 1 el contador de 
adivinanzas y a continuation lanza un 
dado electronico para elegir una fru- 
ta. Las diferentes opciones estan al- 
macenadas en las h'neas 20 a 70. Cual- 
quiera que sea la lfnea a la que vaya 
el ordenador, el nombre de la fruta co- 
rrespondiente se almacena en B$, pa- 
sando despues a la linea 80. Ahora tie- 
nes que accrtar cual es la fruta elegi- 
da e introducir tu conjetura median te 
una sentencia INPUT con la variable 
A$. Esta variable se compara con AS 
y si hay coincidencia total entre am- 
bas. el ordenador presenta el mensaje 
«HAS ACERTADO UNA VEZ» o 
bien «HAS ACERTADO» tantas 
«VECES» como corresponda en cada 
caso. Si A$ no es igual a B$, el orde- 
nador escribe «ERROR» y tienes que 
ensayar de nuevo una respuesta. El 
programa sigue adelante hasta que la 
respuesta sea la correcta. 

Ffjate bien en que aunque la res- 
puesta elegida por U sea la correcta. 
la condicion AS = B$ no se cumplira 
a menos que la ortograffa sea tambien 
correcta. Para que sea correcta, las 
dos cadenas de caracteres han de ser 
absolutamente identicas, tanto las le- 
tras, como los numeros y Ios signos de 
puntuacion. 

Puedes utilizar esta tecnica de com- 
paracion de cadenas de caracteres 
para comprobar las entradas introdu- 
cidas desde el teclado. con una linea 
tal como la siguiente: 

IF A$="SI" THEN PRINT "ESTAS 
SEGUR0?" 

Observa que la condicion anterior 
no se satisface si la palabra «sf» se te- 
clea con letras minusculas. 



ORDENACION DE CADENAS 

Tambien puedes comparar las cade- 
nas de caracteres utilizando los signos 
de desigualdad < y >. Podrias usar- 
los en una linea como la siguiente: 

IF A$<B$ THEN PRINT "LA PRI 
MERA ES **;A$ 

En este caso en la condicion A$ < 
B$ se examina si la cadena AS se si- 
tua antes o despues que B$ cuando 
ambas se colocan en orden alfabetico. 
Pero, jcuidado!, el ordenador hace la 
ordenacion alfabetica atendiendo al 
codigo ASCII de cada letra: a la A le 
corresponde el codigo ASCII 65 y a la 
Z el 90. El problema es que las letras 
minusculas tambien tienen sus codigos 
ASCII: a la a le corresponde el 97 y a 
la z el 122. De esta forma, todas las ca- 
denas de caracteres que empiezan por 
letras mayusculas se situan por delan- 
te de las otras. 

Y lo que es peor, los numeros, los 
signos de puntuacion, los espacios y 
demas signos, tambien tienen sus co- 
digos ASCII, por lo que el orden re- 
sultante para las cadenas puede que- 
dar totalmente trastocado. No obstan- 
te, utilizando cuidadosamente los sig- 
nos < y > se puede obtener una or- 
denacion alfabetica de las cadenas de 
caracteres. 

TROCEADO DE CADENAS 

Se puede extraer un caraeter o un 
conjunto de caracteres del interior de 
una cadena. Esto se hace utilizando 
las funciones LEFTS, RIGHTS y 
MID$. 

LEFT$(A$,numcro) empieza por el 
principio o extremo izquierdo de la ca- 
dena A$ y te da el numero de carac- 
teres que especifiques. Si la cadena A$ 
es «SR JUAN PEREZ» y especificas 
dos caracteres, es decir, si tecleas 
LEFT$(A$,2), el resultado sera «SR». 

Analogamente la funcion RIGHTS 
empieza a contar por el otro extremo 
de la cadena. Asi, RIGHT$(A$,5) 
dara como resultado «PEREZ». 

Con la funcion MID$ puedes espe- 
cificar dos numeros, que correspon- 




den a la posicion de partida y al nu- 
mero de caracteres que ha de conte- 
ner el trozo. Por ejemplo, 
MID$(A$,4,6) empezara en el cuarto 
caraeter J y tomara seis caracteres, 
dando como resultado «JUAN P». Si 
solamente especificas un numero, tal 
como MID$(A$,4), obtendras todos 
los caracteres desde el cuarto en ade- 
lante. 

El siguiente programa utiliza las 
funciones LEFTS, MID$ y LEN. Se 
trata de un juego de anagramas para 
dos personas. Una de ellas introduce 
una palabra que el ordenador seguida- 
mente cifra y presenta en forma de 
anagrama para que la otra persona la 
adivine. 



10 PRINT 'TSH.IFT+CLR/ HOME] " 
20 PR INT'TROGRAMA DE LA 

ADIVINANZA ,r 
30 PRINT ,! ESCRIBE LA PALABRA 

A ENCONTRAR" 




50 INPUT">CC7RL+7]";W$ 
55 W0$=W$ 

70 PRIM "LSHIFT+ CLR/ HOME!] 

[COMM. +7] " 
80 FOR N=LEN(W$) TO 1 STEP-1 
90 M=INT(RND(1)*N)+1 
100 A$=A$+MID$CW$,M,1) 
110 W$=LEFT$(W$,M-1 )+RIGHT$ 

(W$,LEN(W$)-M) 
120 NEXT H 

130 PRINT "EL ANAGRAMA ES "; 
A$ 

140 PRINT "CUAL PIEMSAS QUE 

ES LA PALABRA?" 
160 INPUT GU$ 
170 G=G+1 

180 IF GU$<>WO$ THEN PRINT 
"ERRONEA, INTENT A OTRA 
VEZ*':GOTO 160 

190 PRINT "BIEN HECHO" 



Prograina« i6n 



195 IF S-1 THEN PRINT "NECE 
S1TASTE 1 INTENTO";GOTO 
210 

200 PRINT "NECESITASTE";G; 

"INTENTOS" 
210 PRINT ,r OTRA PARTI DA 

(S/N)?" 

220 GET AS: IF A$<>"S" AND AS 

<>"N" THEN 220 
230 IF A$="S" THEN RUN 



50 INPUT ">ECTRL+2P';W$ 
70 PRINT "ESHIFT+CLR/HOMED 
QCTRL+73" 

Para el VIC-20 introduce los si- 
guientes cambios: 

Cuando ejecutes este juego, obser- 
varas que la primera palabra tecleada 
no aparece en la pantalla. Lo hemos 
programado asf para que tu oponente 
no pueda saber cual es. Cada ordena- 
dor utiliza un metodo diferente para 
conseguir esto. El Commodore lo que 
hace es escribir la palabra con el color 
de fondo de pantalla, de manera que 
resulta invisible. 

La rutina de cifrado esta contenida 
en las lfneas 80 a 120. Lo que hace esta 
rutina es extraer caracteres dc forma 
aleatoria de la pantalla y ponerlos to- 
dos juntos en A$ que se convierte asf 
en un anagrama. 

En la lfnea 90 se elige un numero 
aleatorio Nf'comprendido entre 1 y la 
longitud de la palabra, y a continua- 
tion la lfnea 100 extrac la letra M-si- 
ma y se la anade a A$. La lfnea 110 
borra este caracter de la palabra ori- 
ginal, suprimiendo su parte izquierda 
hasta el numero M y afiadiendo la par- 
te restante que queda a la derecha dc 
M. La palabra resultante tiene ahora 
un caracter menos, pero la vez si- 
guiente, la variable N tambien es un 
caracter menor, por lo que el numero 
aleatorio M esta otra vez restringido a 
la longitud de palabra. 

Llegara un momento en que se ha- 
yan extrafdo todos los caracteres y el 
anagrama quedara impreso en la pan- 
talla, momento en que el programa le 
preguntara a tu oponente cual era la 
palabra original. Cuando teclees en la 
sentencia INPUT la palabra correcta, 
el programa te responde cuantos in- 



tentos has necesitado y le brinda una 
nueva oportunidad. 

Sena muy sencillo modificar este 
programa para que se puedan leer las 
palabras a traves de una serie de sen- 
tencias DATA en vez de utilizar sepa- 
radamente un INPUT cada vez. Tam- 
bien puedes incluir un sistema de pun- 
tuaciones que, por ejemplo, asigne 
diez puntos cada vez que se acierte a 
la primera, nueve puntos a la segunda 
y asf sucesivamente. 

Otro posible uso de este metodo de 
troceado es la manipulation de fechas. 
Incluso en los casos en que las fechas 
se introducen en forma de numeros, 
por ejemplo 27/03/51, en vez del 27 de 
marzo de 1951. Despues de todo, pue- 
des manipular una fecha expresada de 
esta forma con las leyes normales de 
las matematicas. Tambien puedes pro- 
cesar diferentes partes de una fecha 
por medio de la aritmetica. Puedes 
calcular por ejemplo la edad de una 
determinada persona tecleando su fe- 
cha de nacimiento, o calcular el nume- 
ro de dfas transcurridos entre dos fe- 
chas dadas; no tienes mas que mane- 
jar separadamente la parte de los 
anos, la de los meses y la de los dfas. 

Las funciones LEFTS, RIGHTS y 
MID$, te permiten separar con facili- 
dad la parte de los dfas, la de los me- 
ses y la de los anos de una determina- 
da fecha. Si ahora utilizas las funcio- 
nes VAL, obtendras a partir de la ca- 
dena de caracteres resultante un nu- 
mero con el que puedes hacer sumas, 
restas multiplicaciones y divisiones. 

LONGITUD DE LAS CADENAS 

A veces interesa conocer la longitud 
de una cadena. Si por ejemplo solo 
dispones de una limitada capacidad de 
memoria para cada elemento de infor- 
mation introducido desde el tec] ado, 
o solo un espacio limitado de pantalla 
para presentar dicha information, 
puede ser de gran ayuda comprobar la 
longitud de la cadena antes de seguir 
con el programa. 

La funcion LEN(A$) te da como re- 
sultado el numero de caracteres que 
con tiene la cadena A$. Se trata de una 
funcion numerica y no de una cadena 
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de caracteres. por lo que puedes ma- 
nipularla con arreglo a las leyes nor- 
males del algebra. Por ejemplo, si A$ 
= «Sr Juan Perez», LEN(A$) = 13. 
Pero supongamos que te piden que te- 
clees un nombre para un determinado 
fichero cuyo formato tabulado para 
representation en pantalla solo tiene 
sitio para 11 letras, por lo que puede 
ser que haya que enviar un mensaje 
para que se recorte la entrada, tal 
como el siguiente: 

B^fl para C-64 y Vic-20 

10 PRINT "ESCRIBE EL NOMBRE" 
20 INPUT A$ 

30 IF LEN(A$)>11 THEN PRINT 
"LO SIENTO. SOLO ADM IT 
11 CARACTERES" :G0TC 10 

El usuario podria asi recortar su en- 
trada y teclear unicamente «JUAN 
PEREZ». 

En otros casos podria resultar mas 
facil truncar automaticamente la en- 
trada. Esto se hace con una lmea tal 
como la siguiente: 

IF LEN CA$)>15 THEN 
AC$)=LEFT$(A$,15) 



CONVERSION DE CADENAS A 
NUMEROS 

Uno de los usos de las variables de 
cadenas de caracteres es conseguir que 
las entradas introducidas por el tecla- 
do sean correctas. Por ejemplo, si es- 
cribes un programa que contenga un 
par de Imeas como las siguientes: 

100 PRINT "ESCRIBE UN 

MUMERC" 
110 INPUT A 

el ordenador se quedara esperando 
que teclees algun numero. Si por error 
tecleas algun caracter no numerico, 
casi todos los ordenadores interrumpi- 
ran la representation en pantalla y en- 
viaran un mensaje estandar de error. 
Dicho mensaje te informara de que 
hay algo que esta mal pero no te dira 
lo que es. 

Pero si en lugar de esto utilizas: 



110 INPUT 



en este caso el usuario puede teclear 
casi cualquier cosa y el ordenador lo 
aceptara. El siguiente paso es conver- 
tir la cadena de caracteres en un nii- 
mero. Para hacerlo, utiliza la funcion 
VAL(A$). 

La funcion VAL en los Commodo- 
re extrae la parte numerica de la ca- 
dena de caracteres. Asi, si A$ es un 
numero, entonces VAL(A$) sera un 
numero que puede ser utilizado en el 
resto del programa. Si por el contra- 
rio A$ no es un numero, VAL(A$) 
dara como resultado el valor 0. Pue- 
des escribir entonces una pequena su- 
brutina que explique en detalle lo que 
el usuario ha hecho mal y le brinde 
otra oportunidad sin tener que salir 
del programa y destruir la presenta- 
tion que haya en pantalla. 

Un punto importante a tener en 
cuenta a proposito de la funcion VAL 
es que solo extrae numeros del princi- 
pio de la cadena. En consecuencia, 
VAL(«25 DE JULIO) sera igual a 
25, mientras que VAL(JULIO 25) 
sera igual a cero. De modo que ten 
cuidado al utilizarla. 

La funcion VAL resulta muy util 
para ordenar los numeros de una ca- 
dena de caracteres de varias formas di- 
ferentes. Si por alguna razon tienes los 



nombres y las puntuaciones de un gru- 
po de alumnos en forma de cadenas, 
tal como: A$ = «32 JORGE», B$ = 
«45 MIGUEL», C$ = «41 ELENA», 
etc y deseas calcular la media de la ela- 
se, puedes extraer valores individuates 
con ayuda de la funcion VAL. Asi 
VAL(A$) vale 32, VAL(B$) vale 45 y 
VAL(C$) vale 41. 

Tambien puedes usar VAL de for- 
ma parecida para ignorar las unidades 
que pueden ir acompanando magnitu- 
des tales como pesos y longitudes. El 
siguiente programa te permitira apre- 
ciar la diferencia: 

R^^J para C-64 y Vic 20 

100 A$="32 KG" 

110 B$="110 KG" 

120 PRINT "A$+B$=";A$+B$ 

130 PRINT "VAL( A$)+VAL(B$)=" 

;VAL(A$)+VAL(8$) 
140 END 

CONVERSION DE NUMEROS A 
CADENAS 

La funcion STR$ tiene un resultado 
casi opuesto al de VAL. Sirve para 




ORDENA TUS CAD EN AS 

Cuando el ordenador extrae- 
de manera casi magica las direc- 
ciones de centenares de entradas 
separadas y las presenta en la 
pantalla, es facil imaginar que la 
maquina es mas inteligente de lo 
que realmente es. Sucede casi 
como si el ordenador estuviera 
leyendo directamente las entra- 
das y a continuacion decidiendo 
lo que tiene que hacer. 

No te confundas. El ordena- 
dor se limita a extraer una parte 
de la cadena a medida que va re- 
cibiendo informacion. Si resulta 
que una parte de esas cadenas 
contiene un galimatias, pues eso 
es lo que te encontraras. 

Para asegurarte de que obtie- 
nes la misma informacion de 
cada cadena, tienes que garanti- 
zar que la informacion se alma- 
cena siempre en el mismo sitio. 
Los investigadores profesionales 
con frecuencia utilizan tarjetas 
de entrada con un formato nor- 
malizado, que constituyen una 
de las ayudas mas valiosas que 
te puedes procurar. Para ello no 
necesitas mas que una serie de 
espacios que contengan los ca- 
racteres, rotulados con arreglo 
al lugar donde debe empezar y 
acabar cada elemento de infor- 
macion. 



transformar una cadena en un nume- 
ro. La ventaja de esto es que las ca- 
denas de caracteres pueden scr mani- 
puladas de forma distinta a los numc- 
ros, por ejemplo con ayuda del trocea- 
do y la concatenation que ya nemos 
visto, por lo que STR$ tiene varias 
aplicaciones. 
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LI siguiente programa sirve para 
convertir en binario un numero deci- 
mal. Aunque los ordenadores mane- 
jen toda su aritmetica interna en bina- 
rio, el lenguaje BASIC solo puede 
manejar numeros decimales y, en al- 
gunos casos, hexadecimales. Por ello, 
cuando en un programa en BASIC se 
presenta un numero en binario, hay 
que manejarlo como una cadena de 
caracteres. 

gJ^J para C-64 y Vic-20 

10 PRINT "DECIMAL A BINARIO" 
20 PRINT "ESCRIBE UN ENTERO 

DECIMAL" 
30 INPUT D 
40 B$="" 

50 B$=STR$(D-INT(D/2)*2)+B$ 
60 D=INT(D/2) 
70 IF DO0 THEN GOTO 50 
80 PRINT "EL NUMERO BINARIO 
ES ";B$ 

Al introducir un numero decimal 
positivo, la lmea 40 hace la cadena B$ 
igual a la cadena nula, que despues va 
llenando progresivamente con dfgitos 
a medida que progresa el calculo en el 
bucle de las lmeas 50 a 80. 

La linea 50 es la que realmente se 
encarga de construir el numero bina- 
rio. Para ello resta dos veces la parte 
entera de la mitad del numero decimal 
del propio numero decimal. Esta es 
una forma sencilla de comprobar si un 
numero es par o impar. Si es impar, 
el resultado es 1, mientras que siendo 
par el resultado es 0. Naturalmente, 
estos son los dfgitos binarios buscados. 

PROCESAMIENTO DE TEXTOS 

Las funciones dc manejo de cade- 
nas de caracteres se utilizan amplia- 
mente, en especial en proceso de tex- 
tos. Una necesidad que se plantea con 
frecuencia es la sustitucion de una pa- 
labra por otra en toda la extension de 
un documento (posiblemente debido a 
que has descubierto una falta de orto- 
grafia). Naturalmente, si la nueva pa- 
labra tiene una longitud diferente de 
la original, tienes que desplazar el res- 
to del texto para dejarle sitio. El si- 
guiente programa te muestra la mane- 
ra de hacerlo: 



JQgJ para C-64 y Vic-20 

10 INPUT "ESCRIBE EL TEXTO" 
;T$ 

20 INPUT "PALABRA A REEMPLA 

ZAR";P$ 
30 INPUT "PALABRA SUSTITUTA' 

;NP$ 
35 P=0 
40 P=P+1 

50 A$=MID$(T$,P,LEN(P$)) 
60 IF A$<>P$ THEN 90 
70 T$=LEFT$(T$,P-1)+NP$+ 
RIGHT$(T$,LEN(T$) -P-LEN 
CP$)+1) 
80 P=P+LEN(NP$)-1 
90 IF P<LEN(T$) THEN 
GOTO 40 
100 PRINT T$ 
110 GOTO 20 

Empieza introduciendo una frase 
mas bien sencilla y a continuacion en- 
saya el efecto de sustituir algunas de 
sus letras o palabras. En las palabras 
cortas tales como «a» o «un» convie- 
ne teclear ademas un espacio antes y 
despues para evitar que se apliquen 
tambien los cambios cada vez que se 
presenten dichas palabras embcbidas 
en otras mas largas, tales como «para» 
o «unidad». La palabra buscada ha de 
ir entre comillas: «un». 

El programa funciona de la siguien- 
te manera: La linea 40 en via a P a em- 
pezar la fase de busqueda al principio 
del texto. Las lineas 50 y 60 detectan 
la primera aparicion de la palabra o 
grupo de letras que pretendes sustituir 
y a continuacion la lmea 70 realiza la 
sustitucion. Lo que hace es tomar el 
texto original, remplazar la palabra 
antigua por la nueva y ahadir el texto 
restante. El proceso se repite hasta 
que se ha realizado la sustitucion en 
todos los sitios en que aparece la pa- 
labra que se quiere sustituir, impri- 
miendose a continuacion en la linea 
100. 

Como has visto, se trata de un 
ejemplo muy simple, los procesadores 
del mundo real son mucho mas com- 
plicados. Sin embargo puede servir 
para darte una idea de algunas aplica- 
ciones practicas de lo que se puede ha- 
cer con las cadenas de caracteres. 



lO INPUT 



SOLUCIONES 
«INGENIOSAS» 



LA MAQUINA MAS SENCILLA 
VEMTAJAS MECANICAS 



ALCAMZANDO MAYORES ALTURAS 



AHORRO DE ESFUERZOS 
EL ARIETE HIDRAULICO 



La mecanica no existe solo para los 
ingenieros. Es el estudio de las interac- 
ciones entre las fuerzas e interviene en 
todo tipo de actividades cotidianas, 
susceptibles de ser analizadas por tu 
ordenador. 

La construction de muchos de los 
mayores monumentos del mundo, ta- 
les como las piramides de Egipto o el 
complejo megalitico de Stonehenge, 
resulta especialmente sorprendente 
por el hecho de que fueron constrw- 
dos mucho tiempo antes del desarro- 
llo de los dispositivos tecnologicos 
considerados como necesarios para di- 
chas tareas. 

Actualmente serian muy pocos los 
constructores que se atrevieran a 
abordar este tipo de trabajos sin dis- 
poner de la maquinaria adecuada para 
cortar y transportar las enormes pie- 
dras o para elevar las grandes masas 
de material a grandes alturas sobre el 
suelo. Y sin embargo hasta la mas so- 
fisticada de dichas maquinas esta ba- 
sada en unos principios fundamentales 
que ya eran conocidos y utilizados por 
los ingenieros primitivos. Entre todos 



ellos destaca especialmente el princi- 
pio de la mecanica, que es la ciencia 
que se ocupa del estudio de las fuer- 
zas. 

Ya se trate de un sistema estaciona- 
rio (como un edificio) o en movimien- 
to (como los elementos de una maqui- 
na), siempre hay fuerzas que actiian 
sobre el. Se pueden valorar estas fuer- 
zas de un modo instintivo o a partir de 
la experiencia, igual que had an los 
constructores primitivos, y lo que ha- 
cemos todos en las actividades de la 
vida diaria. Por ejemplo cuando vas a 
levantar con una mano una taza de 
cafe, automaticamente aplicas la fuer- 
za correcta para levantarla sin que el 
cafe saiga volando. Y si vas a colocar 
una estanteria, tienes una idea bastan- 
te precisa del tipo de maderas que tie- 
nes que utilizar y de como colocar los 
soportes para evitar que se comben 
por action del peso sobre la misma. 

La estimation de fuerzas de esta 
manera esta muy bien para las aplica- 
ciones corrientes, pero hay muchas 
ocasiones en que se requiere una ma- 
yor precision. En este tipo de analisis 
es donde intervienen los ordenadores. 




Naturalmentc, puedes utilizar esti- 
maciones basadas en la experiencia 
para programar simulaciones en orde- 
nador de sistemas en los que intervie- 
nen fuerzas. En su nivel mas sencillo, 
esto es lo que se hace en el tipo de si- 
mulation empleado en muchos pro- 
gramas de juegos. Asf puedes estimar 
por ejemplo lo lejos que caera una es- 
pada cuando es arrancada de la mano 
de un enemigo, o con que fuerza se es- 
cuchara el ruido producido por el cho- 
que de dos objetos. 

Pcro cuando utilices como herra- 
mienta el ordenador, es seguro que 
necesitaras mayor precision. Por 
ejemplo, tanto si eres un ingeniero 
que esta proyectando un puente como 
un mecanico aficionado intentando 
construir un artilugio para levantar el 
motor de tu coche, es importante sa- 
ber cuando se alcanzara el punto de 
ruptura de la estructura. Si utilizas tu 
ordenador para analizar las fuerzas 
que actiian sobre una estructura en 
condiciones de carga variable, necesi- 
tas una precision absoluta, asi como 
un buen entendimiento de como cal- 
cular las fuerzas. 



LA MAS SENCILLA DE LAS 
MAQUINAS 



A medida que se construyen estruc- 
turas mas pesadas, el problema de mo- 
verlas se va convirtiendo cada vez en 
un reto mayor. Durante la decada de 
los sesenta, el poderoso cohete Satur- 
no V que sirvio para enviar hombres a 
la Luna, fue transportado sobre la ma- 
yor plataforma rodante del mundo. 
En la actualidad, las plataformas pe- 
trolfferas del Mar del Norte, apoyadas 
sobre colchones neumaticos tipo ho- 
vercraft o plasticos lubricantes, son re- 
molcadas hasta la playa y botadas al 
mar. Estas tecnicas y otras parecidas 
dependen para su realizacion de algu- 

INPUT 1 1 



Program**" 



on 



na clase dc maquinas, que les propor- 
cionan, por ejemplo, traction, presion 
o elevation. A su vez estas maquinas 
son una superposition de unos cuan- 
tos dispositivos basicos que han sido 
utilizados durante siglos. 

La mas primitiva de estas maquinas 
es la palanca. En su forma mas senci- 
11a, la palanca es una barra rigida, uno 
de cuyos extremos se coloca debajo de 
un objeto mientras que se actua sobre 
el otro extremo para mover el objeto. 
Con este simple artificio, una persona 
puede mover una carga varias veces 
superior a su propio peso. De hecho, 
se atribuye a Arqufmedes, el gran 
cientffico de la Antigiiedad, la frase 
«Dadme un punto de apoyo y movere 
el mundo» en una clara referencia a la 
ley de la palanca. Segun afirmaba, se- 
n'a capaz de mover la Tierra siempre 
que tuviera una palanca suficiente- 
mente larga y un buen fulcro. El.ful- 
cro o punto de apoyo es el punto al- 
rededor del cual pivota la palanca, por 
lo que en el ejemplo anterior es sim- 
plemente un lugar sobre el suelo en el 
que se apoya la barra rigida. 

La disposition mas normal de la pa- 
lanca tiene el fulcro no en uno de los 
extremos de la barra rigida, sino en al- 
gun punto entre ambos extremos. Te- 
clca el primer programa que figura a 
continuation y tendras una demostra- 
cion de esto. 



Bj^H^W para Com mod ore -64 

1 REM**ES NE CESAR 10 EL 
SIMON'S BASIC 



10 HIRES 0,3 

20 COLOUR 6,3 : FOR Z=0 TO 4 
STEP .5:LINE 0,180+Z*Z, 
319,180+Z*Z,1 :NEXT 2 

40 CSET(D) :INPUT " CSH1FT+ CLR 
/ H0ME3DISTANCIA del 
FULCRO DESDE LA IZQUIERDA 
C1-8)";D 

50 IF D<1 OR D>8 THEN 40 

60 W=(10-D)/D 

70 PRINT "CCRSR abajoJPESO 
REQUERID0 PARA EQUILIBRAR 
100 KG^",W*100;"KG" 

80 FOR G=1 TO 2000: NEXT G : 
CSET(2) 

100 LINE 61+20*D,150,51+20*D 

,179,1 : LIME 61+2C*D,150, 

71+20*D, 179,1 
105 PAINT 61+20*D, 160,1 
120 A=10-D:A=ATN(A*A-1) 
130 FOR AN=A TO 2*ATN(1)STEP 

(2*ATN(1)-A)/10 
140 C=1:G0SUB 1 000 : C=1 : G0SUB 

1500 

150 FOR G=1 TO 5 00: NEXT 6 
160 C=0:G0SUB 1000:GOSUB 

1500 
170 NEXT AN 

180 AN-2*ATN(1) : C=1 :G0SUB 

T0OO:G0SUB 1500 
190 GET A$:IF A$="*' THEN 190 

200 RUN 

1000 X1 =160-1 00*SIN(AN):Y1=* 

149-2G*D*C0S(AN) 
1010 LINE X1 , Y1 ,1 67+1 C0*SIN 

(AN) ,149+(20C-20*D)*COS 

(AN),C 



1020 X1=160+100*SIN<AN):Y1= 
141+C200-20*D)*C0SCAN) 

1025 BLOCK X1,Y1, 166+1 00*SIN 
(AN),149+(2C0-2C*D)*C0S 
(AN),C 

1030 RETURN 

1500 X1=165-1G0*SIN(AN):Y1= 
148-20*D*C0S(AN) 

1 51 C BLOCK 165-1 G0*SIN(AN)- 
SQR(W)*7,148-20*D*C0S 
(AN)-SQR(W)*7,X1 ,Y1 ,C 

1530 RETURN 



Al ej ecu tar el programa aparecera 
un mensaje en la pantalla (lfnea 40) 
para que especifiques la distancia (D) 
desde un punto de apoyo hasta el ex- 
tremo izquierdo de una barra de 10 
metros. La lmea 60 calcula entonces el 
peso (W) requerido en dicho extremo 
para equilibrar una carga de 100 Kg 
colocada cn el otro extremo; la lmea 
70 presenta en la pantalla el valor de 
W. Las Imeas 100 a 110 se ocupan de 
dibujar el fulcro. La lmea 120 define 
las variables correspondientes al angu- 
lo de la palanca y las lmeas 130 a 170 
animan el equilibrio de la barra me- 
diante la llamada a una rutina (lfneas 
1000 a 1030) para dibujar la barra y 
otra (lfneas 1500 a 1530) para dibujar 
los pesos. La lmea 180 dibuja la posi- 
tion final de la barra y los pesos. 

Prueba a introducir diferentes valo- 
res en D cada vez que ejecutes el pro- 
grama, y observa como se requiere un 
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mayor csfuerzo (es decir un valor ma- 
yor de W) a medida que el fulcro va 
estando mas ale j ado de la carga de 100 
Kg. Por el contrario, a medida que el 
fulcro se va colocando mas cerca de la 
carga, la palanca tiene un efecto mu- 
cho mayor, por lo que hace falta mu- 
cho menor esfuerzo. 



VENTAJA MECANICA 



Hxiste una formula matematica muy 
sencilla para calcular las longitudes y 
los pesos de un montaje de este tipo, 
la cual da muy buenos resultados al 
considerar el efecto de carga sobre 
cualquier tipo de barra o viga, en el 
supuesto de que conozcas la position 
del punto sobre el que actua la carga. 
Dicha formula establece que el esfuer- 
zo o potencia multiplicado por la dis- 
tancia desde el punto donde se aplica 
hasta el fulcro, es igual a la carga o re- 
sistencia multiplicada por su distancia 
al fulcro. Escribiendo esto con varia- 
bles podemos poner: 

E x DE = C x DC 

En el programa anterior se utilizo 
W en lugar de E; la longitud total de 
la barra es 10 , por lo que DC es igual 
a 10 — DE. Si el valor de C es igual 
a 1 . la formula se convierte en 

W = (10 - DE)/DE 



que cs la forma en que se utiliza en 
la lfnea 60 del programa anterior. Se 
te pide que especifiques DE (D en el 
programa), para poder calcular el es- 
fuerzo o potencia a aplicar. Sea cual 
sea la forma en que utilices la formu- 
la, siempre podras calcular la variable 
que fake si conoces las demas. 

Este hecho tan simple se utiliza con 
gran provecho en las balanzas ordina- 
rias. Como sabes, se trata de una viga 
de metal que apoya y pivota alrededor 
de un punto de su centre Esto signi- 
fica que DE = DC, ecuacion que se 
puede simplificar para dar E = C. 
Ahora, para pesar un objeto cualquie- 
ra, no tienes mas que colocarlo en uno 
de los platillos que cuelgan de los bra- 
zos y poner pesos conocidos en el otro 
platillo hasta que la balanza quede 
equilibrada. Esto esta muy bien cuan- 
do se trata de pesar pequenas cantida- 
des, como puede ocurrir en una frute- 
ria, pero ^que sucede cuando hay que 
pesar un vehi'culo comercial tal como 
un camion cargado de mineral o de 
carbon? De hecho se aplica el mismo 
principio, pero en este caso en vez de 
situar el punto de apoyo en el centro 
se coloca muy cerca de la carga, por 
lo que se puede seguir equilibrando la 
balanza con pesos pequenos. 

Cuando ya hayas jugado bastantc 
con este programa, y hayas compro- 
bado de que forma el alargamiento de 
la palanca disminuye el esfuerzo nece- 
sario, estaras en condiciones de descu- 



brir palancas en casi cualquier maqui- 
na. Esta disminucion del esfuerzo se 
suele llamar ventaja mecanica y esta 
dada por el cociente entre el esfuerzo 
y la carga. Si transformas adecuada- 
mente la formula anterior, encontra- 
ras que la ventaja mecanica es igual a 
la distancia que se desplaza el esfuer- 
zo dividida por la distancia que se des- 
plaza la carga. De modo que la proxi- 
ma vez que tires de una palanca — que 
puede ser el picaporte de una puerta 
o un freno de bicicleta — observa 
como el desplazamiento del extremo 
donde se aplica el esfuerzo es bastan- 
te mayor que en el otro extremo. 



ALCANZANDO MA YORES 
ALTURAS 



Para empujar y tirar de cosas, lo 
mejor es utilizar palancas, pero cuan- 
do lo que hace falta es elevar una de- 
terminada carga a una gran altura, la 
palanca ha de ser modificada. Este es 
el objeto de los sistemas de poleas, 
que tambien te permiten obtener ven- 
taja mecanica. Para vcr demostrado 
esto, teclea y ejecuta el siguiente pro- 
grama: 



Jg29| P ara Commodore-64 

1 REM**nsi6NIFICA ESPACIO 

20 A$=*TSHlFT+N3rCTRL+9][j 
[CTRL+Q3 ESHIFT+H] L'CRSR 
abajo3[3*CRSR izq.D 
("CTRL+93 CCRSR dcha. 3 
*CCRSR dcha.jCCTRL+03 
CCRSR abajo3t:3*CRSR izq.3 
[SHI FT+Mj CCTRL+93 f.3 
[CTRL+03 CSHIFT+N] " 

30 FOR Z=1 TO 20;D$=D$+ 
"CCRSR abajc3":NEXT Z 

40 B$=A$+"lI2*CRSR arribaD 
C5*CRSR dcha.]"+A$+'T2* 
CRSR arrihaJC5*CRSR 
dcha -3"+A$ 

50 C$r:"CCTRL-f53CCTRL+9]LjG 
LC1RL+01 CCRSR dcha. 3 

CCTRL+OUCCRSR dcha .3 □ □ 
□ □□□□[CTRLJ-C3 
ECRSR dcha.3ECTRL+9jC3n 
LCTRL+C3 ,: 
60 POKE 53280 ,7:P0kE 53281,7 

INPUT 13 





: GO SUB 1000 
90 S=C:FOR Z=18 TO 6 STEP-. 5 
:PRINT"CCLR/HOHFJ CCTRL+73 
"LEFT$(D$,Z)TAB(19)B$: 
PRINT"C2*CRSR arriba3"SPC 
(18)C$ 

100 PRINT TABC18) "[CTRL+33 
CSH1FT+J jC3*CRSR dcha„3 
CSHIFT+K3L3CSHIFT+-3C3 
FSH1FT+J3L3*CRSR dcha.3 
CSHI.FT+K3 C3 CSNI FT+-3 D 
CSH1FT+J3C3*CRSR dcha.3 
LSHIFT+K3" 

110 PRINT TAB(18) ,, GL]nL3Lj 
□ CC0MM.+Z3 CSHIFT+C3 
[CTRL+13LClRL+9jr] 
CSH1FT+U3 [3 CSHIFT+Ij □ 
[ CTRL+03 t CTRL+33 LSH I FT+C3 
CCOIWi.+XJ" 

120 PRINT TAB(24)"[3L3 
CCTRL+1 3 CCTRL+93 C3 
CSHIFT++3CDLSHIFT++3C3 
CCTRL+03F3L3" 

130 PRINT TAB(24) ,? Gr.3[jnn 
[3L3CjLj":FOR D=1 TO 200 
:NEXT D 

140 POKE 1278+40*S,93:S=S+3: 

IF S>15 THEN S=0 
150 POKE 1278+40*S,220:NEXT 

Z:END 

1000 PRINT*TSHIFT+CLR/H0ME3 
CCTRL+13";:FCR 2=1 TO 
40: PRINT "CCTRL+93 1.3 
CCTRL+03";:NEXT 

1003 FOR Z=1 TO 3:PRINT SPC 
(20) ,! CCTRL+53rSHIFT+-3 
C7*CRSR dcha.3CSHIFT+-3 

1 4 INPUT 



L9*CRSR dcha.3rSHlFT+-3 
" : NEXT 2 

1005 PRINT"L"CLR/HOrC3L3*CRSR 
abajoj"SPCC14)»TSHIFT+U3 
[3*CRSR dcha.3CSHIFT+lJ 
L3*CRSR dcha.3 [SHI FT+U3 
L3*CRSR dcha.3LShIFT+l3 
L3*CRSR dcha.3CSHIFT+U3 
[3*CRSR dcha.3tSHIFT+l3 
L"3*CRSR dcha.3rSHIFT-!-3" 

1006 FOR Z=1 TO 16:PRINT 
SPC(14)'TShlFT+-3 
[3*CRSR dcha.3CSHIFT+~] 
C3*CRSR dcha.3 CSH1FT+-3 
C3*CRSR dcha .3ESHIFT+-3 
C3*CRSR dcha.3CSHIFT+-3 
C3*CRSR dcha.3CSHIFT+-3 
[3*CRSR dcha.3 CSHIFT+-3" 
:NEXT Z 

1007 PRINT SPC(14)"CSHIFT+-3 
CCRSR abajo3CCRSR izq.3 
CSHIFT+-3CCRSR abajo3 
CCRSR izq.3CSHlFT+-3" 

1008 PRIM"C2*CRSR arribaj" 
TAB(1G)"CCRSR abajoj 
CCTRL+93 CCTRL+13 C3 
CCTRL+03 CC0W+G3" 

1010 PR IN T " C CLR/H0ME3 1 CTRL+73 
L3*CRSR abajo3"7AB(15) A$ 
"CCLR/H0ME3C3*CRSR 
abajo3"TAB(23)A$" 
CCLR/HOP1E3C3*CRSR abajc3 
"TAB(31)AS 

1011 PRINT"CCLR/H0ME3 
C4*CRSR abajo3"SPC(14)C$ 

1020 PRlNT'TCLR/HOME3i:CTRL+63 
CCRSR abajo3ESFUERZ0 



REGUERID0=":PR1NT"166,£ 
KILOGRAMCS PARA": PRINT 
"LEVANT AH 1 TONEL ADA" 
1030 RETURN 

El programa te en via un mensaje 
para que especifiques el numero de 
poleas que quieres que intervenga er 
la demostracion (linea 20). Para em- 
pezar, teclea un 2 y aparecera en It 
pantalla (linea 50) el esfuerzo necesa 
rio para elevar una carga de 1000 Kg 
(una tonelada). Seguidamente el pro- 
grama realiza una animation de la car- 
ga cuando esta siendo elevada. La ru- 
tina que se extiende entre las lfneas 
1000 y 1210 (a la cual se llama desde 
la lmea 60) sirve para dibujar el siste- 
ma de cuerdas, polea fija y apoyos. 
mientras que las lineas 90 a 150 se ocu- 
pan de la polea movil, la carga y la 
cuerda que se mueve. 

Ejecuta nuevamente el programa 
pero introduciendo ahora 4 y despues 
6 como respuesta al mensaje inicial y 
compara los valores del esfuerzo y de 
la distancia resultantes para el extre- 
mo libre de la cuerda. Como el esfuer- 
zo es igual a la carga dividida por el 
numero de poleas, el esfuerzo resul- 
tante sera igual a 1/2, 1/4 o 1/6 de los 
1000 Kg para los casos de 2, 4 o 6 po- 
leas. En consecuencia , cuanto mayor 
sea el numero de poleas empleadas, 
menor sera el esfuerzo requerido para 
levantar la misma carga. Al igual que 
en el caso de la palanca, la ventaja me- 
canica esta dada por la relation car- 



ga/esfuerzo. Para el caso de dos po- 
leas esta relation es 1000 dividido por 
500, lo que suporie una ventaja igual 
a 2. Analogamente, la ventaja meca- 
nica es 4 para el caso de cuatro poleas 
y 6 cuando se utilizan seis poleas. 



AHORRAIMDO ESFUERZOS 



Igual que en el caso de la palanca, 
sigue valiendo en este caso la relation 
entre la distancia que se desplaza la 
carga y la que se desplaza el esfuerzo. 
Aunque en el caso de dos poleas, por 
ejemplo. la animation revela que el 
extremo donde se aplica el esfuerzo se 
desplaza el doble de la distancia reco- 
rrida por la carga. esto no resulta muy 
facil de verificar. Si consideras que la 
cuerda del extremo izquierdo de la po- 
Iea fija se desplaza hacia abajo una 
unidad de longitud. entonces la cuer- 
da del extremo derecho se desplaza 
dos unidades hacia arriba. La diferen- 
cia con respecto al caso de una unica 
polea fija es que la cuerda del lado de- 
recho esta fija, por lo que se produci- 
ra un desplazamiento de una unidad 
en la parte izquierda cada vez que el 
ccntro de la polea se desplace media 
unidad hacia arriba. Con un razona- 
miento analogo se puede demostrar 
que la carga se mueve la cuarta parte 
que el extremo donde se aplica el es- 
fuerzo, en el caso de un sistema de 
cuatro poleas y como la sexta parte en 
el caso de seis poleas. 



Observa que todo el analisis esta 
basado en el hecho de que las poleas 
son del mismo tamano. Ademas, aun- 
que el montaje mostrado en la panta- 
11a funcione bien, resulta incomodo. 
En Ios montajes practicos, las poleas 
deberian ir montadas sobre dos ejes. 
Por ejemplo, un sistema de seis poleas 
lleva tres roldan'as o ruedas ranuradas 
sobre un eje con un bastidor dc sopor- 
tc, el cual se une a un pescante o es- 
tructura rigida elevada. A traves de un 
sistema analogo de roldanas se hace 
pasar una cuerda fijada al fondo del 
bastidor, mientras que la carga se an- 
cla al fondo de su bastidor. Esta cs la 
disposition convencional utilizada en 
la mayoria de los aparejos. 



EL ARIETE HIDRAULICO 



Una a plication no menos importan- 
te de la ventaja mecanica es la del 
ariete o gato hidraulico. Se trata del 
dispositivo utilizado normalmente 
para mover determinados clcmentos 
en todo tipo de maquinarias, desde las 
puertas compactadoras de basuras y 
los volquetes de los camiones, hasta el 
tren de aterrizaje de un avion o el sis- 
tema de frcnos de un coche. El siste- 
ma de frenado de un coche ilustra muy 
bien como un pequeno esfuerzo, pero 
un largo recorrido (en el pedal) pue- 
de ser amplificado hasta una intensi- 
dad suficiente como para llegar a de- 
tener las ruedas, incluso a alta veloci- 



Program"**!! 



dad. Tcclca y cjecuta el siguiente pro- 
grama para ver la demostracion de 
este principio: 



1 REM**ES NECESARIO EL 

SIMON'S BASIC 
10 HIRES 0,1 
20 MULT I 0,5,6 
30 COLOUR 2,7 
40 DIM P(4),R(31) 
50 GOSUB 300 

80 GET A$:IF AS-" "THEN 80 
90 CSET (O): INPUT "CSHIFT+ 

CLR/HOMEl CUAL ES EL 

DESPLAZAMIENTO DEL 

EMBOLO (1-90) ";TR 
100 IF TR<1 OR TR>90 THEN 90 
110 CSETr(2) rMULTIr 0,5,6: 

FOR K=1 TO TR 
115 LINE 16,40+K,20,40+K,0 
120 BLOCK 16,41+K,20,48+K,2 
125 LINE 91,53-K/7,111,53-K 
/7,3 

130 BLOCK 91,23 dl K/7,111,48-K 



/7,2 
140 NEXT K 

150 GET A$ : IF A$="" THEN 150 
160 CSET(O) : PRINT "LSH1FT+ 

CLR/HOMEHOTRA VEZ CS/N)?" 
170 GET A$:IF A$<>"S ,: AND A$ 

<>"N" THEN 170 
180 IF A$="S ,r THEN RUN 
190 PRINT "CSHIFT+CLR/HOMEj " 

:END 

300 LINE 15,40,15,200,1 
305 LINE 112,40,112,200,1 
310 BLOCK 21,40,90,180,1 
33C TEXT 50,170,">",0,1,8 
340 BLOCK 16,41,20,48,2 
350 BLOCK 91,23,111,48,2 
355 PAINT 80,190,3 :LINE 55, 

180,55,200,0 
360 FOR K=C TO 9 
370 LINE 13,49+K*10,15,49+K 

*10/1 
380 NEXT K 

390 TEXT 5, 46, "0", 1,1,1 
395 TEXT 0,140, "90", 1,1,8 
400 FOR K=C TO 9 STEP 3 



410 LINE 113,49-K,115,49-K,1 
420 NEXT K 

430 TEXT 116, 48, "0", 1,1, 8 
435 TEXT 116,35, "9",1, 1,8 
440 RETURN 

Al ejecutar este programa, en la li- 
nea 50 se produce un salto a una su- 
brutina que dibuja el ariete. A conti- 
nuation el programa te pide que espe- 
cifiques el recorrido del piston, que en 
un sistema de frenado seria equivalen- 
te al movimiento del pedal. Se produ- 
ce entonces una animation que descri- 
be el movimiento del liquido en eJ 
ariete. 

El desplazamiento es una medida 
del esfuerzo aplicado al piston, pero la 
ventaja mecanica esta determinads 
por los diametros de los pistones mo- 
triz y de carga. Si los dos pistones tie- 
nen el mismo diametro, no hay venta- 
ja mecanica, pero a medida que se re- 
duce el diametro del piston motriz au- 
menta esta, de forma que es mas faci 
elevar la carga del lado derecho. 



Para que su 
COMMODORE trabaje 



\a / < 



casa/de 
software 



CONTABILIDAD-64 



Li'dcr en ventas, por su sencillez, 
rapidez, eficacia y precio. 
Tiene capacidad para 600 cuentas 
y un niimero ilimitado dc apuntes 
por cuanto el programa permite 
generar nucvos discos en los que 
continuarel eicrcicio contable. 



Contabilidad-64 es un producto' 
de software autosuficiente 



PARA QUE SU LIQUIDACI 
.DE I.V.A. NO LE SORPRENDA. 



VCIONA 
!ENDA/ 



IN, A. - 64 




ESCRITOR 



que permite tcneren todo momento 
acceso a los ficheros de manera que 
puedan modifiearse los datos contenidos 
en ellos. adn cuando estos 
ya hayan sido validados 

esta posibilidad da i »rr" , T'\\V^ 

una total libertadal \NOVLL«VU 
usuario en el manejo I Versi 6n GENERICS P ara 
de la information. I cuatquier in, P rest,ra ' 

Vato tes P or defect., V** 
RITEMAN O +• 




- Listado de facturas recibidas 

- Listado de facturas emitidas x; : > ; 

- Informe contable (I.V.A. deudor y 
I.V.A: acreedor) 

- Diario 

-Trasvase a contabilidad. 



CONTABILIDAD 64 A - 23.000 
CONTABILIDAD 64 B • 25.000 
CONTABILIDAD 64 - I.V.A. - 31.000 
PROGRAMA I.V.A. 7.000 

CONTABILIDAD l'K01 : liS10NAL VliKSION CASSETTF. - 7.9 



- PtS. 

- PtS. 

- PtS. 

- PtS. 
10.- Pis. 



(PROCESADOR DETEXTO) 



Programa en cartucho con posibilidad 
de grabacion de documentos en casset- 
te o diskette. 

Caracteres castellanos y catalanes tan- 
to en pantalla como en impresora. Po- 
sibilidad de utilizar todo el set de carac- 
teres de la impresora. Margenes, nu- 
meracion de paginas, encabezamien- 
tos, pies de pagina, etc. 



PROCESADOR 
DE TEXTO 



Los tres acentos y la dieresis se ob- 
tienen pulsando Fl, F2, F3 o F4 y a 
continuacion la vocal correspondiente 
como en una maquina de escribir con- 
ventional. 

Posibilidad de cartas personalizadas 
(mail merge). 

P.V.P. 14.900,- pts. 



DIGANOS ODE IMPRESORA USA. 
TENEMOS El, PROGRAMA QUE NECESITA. 



VERSIONES PARA: 

- SEIKOSIIA SP 800 

- IBM Compatibles (STAR, SG 10 EPSON...) 

- MPS 801 y compatibles COMMODORE 



Casa de Software, s.a. 

TAQUIGRAFO SERRA, 7, 5.° B 
Tels. 321 96 36 - 321 97 58 
08029 BARCELONA 



Pide demostracion en: 
Division Online GALERIAS 
Division Informatica 



Deseo recibir informacion de los siguientes programas: 



Nombre: 00 

Direction: 

Poblacion: H 




Aplicaciones 




LACAJA 

DE HERRAMIENTAS 



INCORPORACION DE NUEVOS COMANDO S 
RUTINA DE RENUMERACION 



NUMERACION AUTOMATICA DE LINEAS 



SUPRESION DE BLOQUES 



OTROS COMANDOS 



Haz que tu \ ida resulte un poco mas 
facil con este nuevo juego de herra- 
mientas de programacion. Esta utili- 
dad en codigo maquina ofrece muchas 
rutinas que te ayudaran a configurar 
tus programas. 

Aunque todos los ordenadores uti- 
lizan en principio el mismo lenguajc 
BASIC, te habras dado cuenta dc las 
variantes que existen de unos dialec- 
tics a otros. De hecho, es muy raro en- 
contrar un programa, por corto que 
sea, que corra en mas de un ordena- 
dor. A veces no hace falta modificar 
mas que la forma en que se utilizan los 
comandos, pero muchas veces te en- 
contraras que muchos comandos im- 
plementados en uno de los ordenado- 
res no existen en absoluto en el otro. 
Muchos de los comandos no disponi- 
bles son prccisamente los que, sin ser 
absolutamente esenciales para la pro- 
gramacion, hacen que la vida resulte 
mas facil para el programador, por in- 
cluir facilidades como la enumera- 
tion, la autonumeracion de lmeas, o 
la conversion de hexadecimal a deci- 
mal, etc. 

El programa de caja de herramien- 
tas {toolkit) para el Commodore que 
vamos a ver a continuacion, incorpo- 
ra estos comandos y algunos otros, fa- 
cilitandote grandemente el uso y la 
programacion del ordenador. Hay 
otros ordenadores que no neccsitan 
estas utilidades, porque disponen de 
ellas en su BASIC estandar. 

El juego de utilidades que aquf pre- 
sentamos incorpora un total de 43 
nuevos comandos que pueden utilizar- 
se de la misma forma que las palabras 
reservadas del BASIC. 

Teclea el programa y a continuacion 
ejecutalo para comprobar si hay erro- 
res. Si te has equivocado en alguna de 
las lmeas de DATA, el programa te 
dira en que lfnea estan los errores. 

Cuando el programa cs correcto, al- 



macena la version de BASIC por me- 
dio de: 

SAVE ,f HERRAMIENTA" 

A continuacion teclea RUN y des- 
pues SYS 52480, para crear el codigo 
maquina; despues almacena dicho co- 
digo maquina con uno de los nuevos 
comandos recien creados. 

QMSAVE 491 52 ,53247, "HER R A 
MIENTA CM"/t,1 

Se trata de la version del codigo ma- 
quina que tendras que cargar cuando 
quieras utilizar el programa. Para car- 
garlo, teclea: 

LOAD ,f HERRAMlENTA"/I,1 

Ocupemonos ahora de los coman- 
dos. Debido a la forma en que funcio- 
na el programa, todos los nuevos co- 



mandos se componen de una palabra 
de BASIC ya existente mas un par de 
caracteres adicionales, el primero de 
los cuales siempre sera @. La sintaxis 
de cada comando va seguida de una 
explicacion asf como de un ejemplo en 
los casos en que sea necesario. 



LOS NUEVOS COMANDOS 



@PPOKE posicion, direccion. Por 
ejemplo @PPOKE 51, 16384 POKEa 





Aplicaciones 



(tt>POKER direction de comienzo, 
numero dc elementos (0 a 256), lista 
de elementos. Por ejemplo @POKER 
49152,4,12,51,34,15,21 POKEa los 



cinco datos en la memoria a partir de 
la direction 49152. 

@POKES direction inicial, direc- 
tion final, valor a POKEar (0 a 255). 




los bytes bajo y alto de 16384 en las 
posiciones de memoria 51 y 52. 

@PPEEK position. Por ejemplo 
@PPEEK 51 presenta el valor de 
PEEK(51) + PEEK(52)*256. 

18 INPUT 



Este comando llena toda una section 
de memoria con el valor deseado. 
Pucdes borrar una section de memo- 
ria POKEando ceros, o tambien pue- 
des llenar parte de la pantalla con ca- 
racteres, POKEando en la memoria 
de pantalla el codigo del caracter que 
quieres que aparezca en pantalla. 



Aplicaciones 



@BNEW direccion. Desplaza el co- 
mienzo del BASIC a la direccion de- 
seada. 

@GETNEW resetea el comienzo 
del BASIC a su valor normal. Es equi- 
valente a un comando OLD. Puedes 
utilizar los dos ultimos comandos para 
almacenar varios programas en me- 
moria al mismo tiempo. Por ejemplo, 
puedes cargar un programa como de 
costumbre y a continuacion despiazar 
el BASIC, por ejemplo con @BNEW 
16384, cargando despues otro progra- 
ma. @BNEW 2048:@GETNEW te 
hara volver al programa antiguo. 

@NNEW realiza un arranque frio, 
borrando todos los programas de la 
memoria. 

@GGOTO variable te permite ha- 
cer un GOTO a un niimero de linea 
variable. 

@LRESTORE numero de linea te 
permite restaurar un comando READ 
a una lmea especifica. 

@MGOTO direccion inicial, direc- 
cion final, nuevo comienzo desplaza la 
zona de memoria situada entre las di- 
recciones inicial y final, llevandola ha- 
cia la nueva direccion de comienzo. 

@MREAD direccion inicial, direc- 
cion final imprime el contenido de la 
zona de memoria sumandole el total 
de todos los valores. Un resultado ti- 
pico podrfa ser 12, 32, 65, 22, #131. 
Se puede utilizar este comando para 
crear h'neas DATA de codigo maqui- 
na con comprobaciones al final de 
cada lmea. Al final de la section hay 
un corto programa para demostrar 
esto. 

@MSAVE direccion inicial, direc- 
cion final, nombre de programa en co- 
digo maquina, numero de dispositivo, 
1 almacena una zona de memoria 
como programa en codigo maquina. 
Como ejemplo, puedes ver el coman- 
do para almacenar el programa del 
juego de utilidades. 

@MFRE te informa del espacio to- 
tal de memoria disponible para el BA- 
SIC. 

@COST byte bajo, byte alto. Por 
ejemplo @COST 6,1 presenta el valor 
de 6 + 1*256. 

@POST numero convierte el nume- 
ro en sus bytes bajo y alto. 

@CCHR$ numero de caracteres (0 



a 255 J, codigo ASCII a imprimir. Por 
ejemplo, @CCHR$ 6,65 imprime seis 
letras A. 

@D' numero decimal, lo convierte 
a hexadecimal. 

@H'$ numero hexadecimal de cua- 
tro dfgitos, lo convierte a decimal. 

@ONTO incremento de cuenta (0 
a 255) proporciona numeracion auto- 
matica de lmeas con el incremento de- 
seado. La linea de comienzo es la pri- 
mera que teclees. 

@ONTO RETURN anula el efecto 
del anterior comando @ONTO. An- 
tes de emplear este comando, pulsa 

SHIFT y RETURN . 
@RLIST, numero de linea de co- 
mienzo, incremento. Es es comando 
de renumeracion. Por ejemplo, 
@RLIST,10,5 renumera un programa 
empezando en la linea 10 y avanzan- 
do de 5 en 5. Fijate en la primera 
coma que figura en el comando y cui- 
da que no se te olvide. 

@WAITGET variable, espera a 
que se produzca una pulsation de te- 
cla; el nombre de la variable carece de 
importancia. 

@WAIT' 711*numero de segundos 
introduce un tiempo de espera del nu- 
mero de segundos especificado (el 711 
es un factor de escala). @PRINT% 
tinta (0 a 15), X (0 a 39), Y (0 a 24), 
texto a imprimir. Este comando impri- 
me el texto deseado, en el color espe- 
cificado y en las coordenadas X, Y. 

@COR tinta (0 a 15), color de bor- 
de (0 a 15), color de papel (0 a 15) es- 
tablece unas determinadas condicio- 
nes de color. 

@CLR' numero (0 a 39) borra de la 
pantalla la linea especificada. 

@SCLR borra toda la pantalla. 

@NEW resetea la pantalla. 

@UP desplaza toda la pantalla una 
linea hacia arriba. 

@SYS1 deja la pantalla inactiva. 

@SYS0 pone la pantalla activa. 

@ASC1 hace que todas las letras 
sean minusculas. 

@ASC0 hace que todas las letras 
sean mayusculas. 

@ONl inhibe la tecla SHIFT. 

@ON0 activa la tecla SHIFT. 

@DEF1 inhibe la tecla 
RUN/STOP. 

@DEF0 activa la tecla RUN/STOP. 



@FN1 activa la autorrepeticion. 

@FN0 desactiva la autorrepeticion. 

@KCLR borra el buffer de teclado 
(es equivalente a POKE 198,0). 

@TOP envia el cursor a la esquina 
superior izquierda de la pantalla. 

@SIF borra todos los registros del 
chip de sonido. 

@SON voz, volumen, A/D,S/R, 
forma de onda, byte alto de la nota, 
byte bajo de la nota. Puedes utilizar 
este comando para definir los parame- 
tros de una nota. 



CREACION DE LINEAS DATA 



Tal como hemos mencionado al ha- 
blar del comando @MREAD, leyen- 
do una zona de memoria, puedes crear 
un programa BASIC que consista en 
sentencias DATA de codigo maquina. 
Este es el comando que se utilizo para 
crear el Iistado del propio paquete de 
utilidades. Suponiendo que has utili- 
zado un ensamblador para crear un 
determinado codigo maquina que em- 
piece en la position 49152, el metodo 
es el siguiente. En primer lugar, teclea 
las siguientes lineas y a continuacion 
pulsa RETURN : 

A=0 : X=491 52 :S>CCHR$79,32 : ? 

"C2*CRSR a Tribal:]" 

A*1 "D ATA □ : 8MREAD X+A 

*15,14+X+A*15 

Al pulsar RETURN te aparecera 
en la pantalla la primera linea DATA. 
Coloca el cursor sobre dicha linea y 
pulsa RETURN para almacenarla. 

A continuacion, desplaza el cursor 
a A = e incrementa el a 1 , pulsa 
RETURN y sigue el proceso con la 
siguiente linea de datos. Sigue incre- 
mentando A hasta que esten introdu- 
cidos todos los datos. Esta rutina te 
presenta un programa con incremen- 
tos de linea de 10 en 10. Si cambias el 
numero 10 que precede a «DATA», 
obtendras otros incrementos distintos. 



SUPRESION DE BLOQUES 



No existe un comando para supri- 
mir bloques, pero se puede obtener 

INPUT 19 



Aplicaciones 



este mismo electa por medio de otros 
dos comandos. Activa la funcion de 
autorrepeticion por medio de @FN1 y 
a continuation teclea @ONTO con un 
valor adecuado de incremento de 11- 
nea, relacionado con el incremento 
entre llneas que descas suprimir; final- 
mente, teclea el numero de la prime- 
ra h'nea que ha de ser suprimida. Al 
mantener pulsado RETURN se bo- 
rraran efectivamente todas las lmeas 
desde ese punto en adelante, dete- 
niendose unicamentc cuando dejes de 
apretar la tecla RETURN . 

100 DATA 32,158,183,142,134, 
2,32,253,174,32,158,183, 
138, 72 ,32, #1725 

101 DATA 253,174,32,158,183, 
104,168,24,32,240,255,32 
,253, 174,32, #2114 

102 DATA 164,170,96,32,158, 
183,142,134,2,32,253,174 
,32,158,183 ,#1913 

103 DATA 142,32,208,32,253, 
174,32,158,183,142,33, 
208,96,32,247, #1972 

104 DATA 183,32,253,174,32, 
235,183,142,19,3,169,0, 
133,2,32, #1592 

1C5 DATA 253,174,32,158,183, 
138,164,2,145,20,204,19, 
3,240,5, #1740 

106 DATA 230,2,76,74,192,96, 
32,138,173,32,247,183, 



165,20, 133, #1793 

107 DATA 251 ,165,21 ,133,252, 
32,253,174,32,138,173,32 
,247, 183,32, #2118 

108 DATA 253,174,32,158,183, 
134,2,165,21 ,197,252,144 
,35,208,6, #1964 

109 DATA 165,20,197,251,144, 
27,165,2,160,0,145,251, 
165 ,251, 197, #21 40 

110 DATA 20,208,6,165,252, 

1 97,21 ,240,9,230,251 ,208 
,234, 230, 252, #2523 

111 DATA 76,141,192,96,32, 
138,173,32,247,183,165, 
20,133,251, 165, #2044 

112 DATA 21,133,252,32,253, 
174,32,138,173,32,247, 
183, 165,20, 133, #1988 

113 DATA 253,165,21,133,254, 
32,253,174,32,138,173,32 
,247, 183,165, #2255 

114 DATA 254,197,252,144,41, 
208,6,165,253,197,251, 
144 ,33, 160,0, #2305 

115 DATA 177,251 ,145,20,165, 
251,197,253,208,6,165, 
252, 197,254, 240, #2781 

116 DATA 15,230,251 ,208,2,,. 
230,252,230,20,208,228, 
230,21 ,76 ,223, #2424 

117 DATA 192,96,32,138,173, 
32,247,183,165,20,133, 
251,165 ,21 , 133, #1981 

118 DATA 252,32,253,174,32, 



138,173,32,247,183,160,0 
,165,20, 145, #2006 

119 DATA 251,165,21,200,145, 
251 ,96,32,158,183,32,255 
,233, 96,32, #2150 

120 DATA 138,173,32,247,183, 
160,0,177,20,170,200,177 
,20,32,205, #1934 

121 DATA 189,96,32,138,173, 
32,247,183,165,20,133, 
251, 165,21, 133, #1 978 

122 DATA 252,32,253,174,32, 
138,173,32,247,183,165, 
21 ,197,252, 144, #2295 

123 DATA 61,208,6,165,20,197 
,251,144,53,169,0,133, 
253, 133,254, #2047 

124 DATA 24,160,0,177,251, 
170,1 01 ,253,1 33 ,253,1 65 , 
254,105, 0,133, #2179 

125 DATA 254,169,0,32,205, 
189,169,44,32,210,255, 
165,251, 197, 20, #2192 

126 DATA 208,6,165,252,197, 
21,240,9,230,251,208, 
214, 230 ,252,76, #2559 

127 DATA 104,193,169,35,32, 
210,255,166,253,165,254, 
76 ,205, 189, 32, #2338 

128 DATA 138,173,32,247,183, 
162,0,232,208,253,198,20 
,169,255, 197, #2467 

129 DATA 20,208,245,198,21, 
197,21,208,239,96,32,158 
,183, 160,0, #1986 



REMjCGION i 
GAMBIA 1 





DIRECTION 



Paseo— 

dela 
Castellana 

if 93 
planta,14 

28046 

-Madrid- 



20 INPUT 



Aplicaciones 



130 DATA 224,1,208,2,160,7, 
224,2,208,2,160,14,132, 
2,32, #1378 

131 DATA 253,174,32,158,183 
,142,24,212,32,253,174, 
32,158, 183, 138, #2148 

132 DATA 164,2,153,5,212,32, 
253,174,32,158,183,138, 
164, 2, 153, #1825 

133 DATA 6,212,32,253,174,32 
,158,183,138,164,2,153,4 
,212, 142, #1865 

134 DATA 19,3,32,253,174,32, 
158,183,138,164,2,153,1, 
212, 32, #1556 

135 DATA 253,174,32,158,183, 
138,164,2,153,0,212,206, 
19,3, 173, #1870 

136 DATA 19,3,164,2,153,4, 
212,96,162,0,138,157,0, 
212,232, #1554 

137 DATA 224,25,208,248,96, 
76,68,229,76,24,229,76, 
234,232,169, #2214 

138 DATA 0,141 ,138,2,96,169, 
128,141,138,2,96,169,0, 
133, 198, #1551 

139 DATA 96,169,237,141,40,3 

,96,169,251,141,40,3,96, 
76, 102, #1660 

140 DATA 229,169,27,141,17, 
208,96,169,11,141,17,208 
,96, 169,21, #1719 

141 DATA 141,24,208,96,169, 
23,141,24,208,96,169,9, 



76 ,210, 255, #1849 

142 DATA 169,8,76,210,255,32 
,138,173,32,247,183,76, 
163, 168,32, #1 962 

143 DATA 138,173,32,247,183, 
169,0,168,145,20,24,165, 
20, 105,1 , #1590 

144 DATA 133,43,165,21,105,0 
,133,44,76,154,227,169, 
62,32 ,210, #1574 

145 DATA 255,169,18,32,210, 
255,165,55,56,229,45,170 
,165, 56, 229, #2109 

146 DATA 46,32,205,189,169, 
96,160,228,76,30,171,169 
,0,133, 198, #1902 

147 DATA 165,198,201,1,208, 
250,76,146,171,169,8,160 
,1 ,145,43, #1 942 

148 DATA 32,51,165,24,165,34 
,105,2,133,45,133,47,133 
,49, 165, #1283 

149 DATA 35,105,0,133,46,133 
,48,133,50,96,32,138,173 
,32,247, #1401 

150 DATA 183,165,20,133,63, 
165,21,133,64,32,19,166, 
56,165,95, #1480 

151 DATA 233,1,133,65,165,96 
,233,0,133,66,96,162,0, 
181 ,43, #1607 

152 DATA 149,151,232,224,4, 
208,247,32,138,173,32, 
247,183,165,20, #2205 

153 DATA 133,43,165,21,133, 



44,32,253,174,32,138,173 
,32,247, 183, #1803 

154 DATA 165,20,133,45,165, 
21,133,46,32,86,225,162, 
0,181 ,251 ,#1665 

155 DATA 149,43,232,224,4, 
208,247,96,32,158,183, 
134,2,32, 253,#1997 

156 DATA 174,32,158,183,142, 
19,3,165,2,201,0,240,11, 
173, 19, #1522 

157 DATA 3,32,210,255,198,2, 
76,79,195,96,76,154,227, 
32, 138, #1773 

158 DATA 173,32,247,183,170, 
169,72,32,210,255,169,39 
,32, 210,255, #2248 

159 DATA 169,36,32,210,255, 
138,32,139,195,138,32, 
144,195,152,32,#1899 

160 DATA 139,195,152,32,144, 
195,96,24,106,106,106, 
106,41 ,15,24, #1481 

161 DATA 105,48,201,58,144, 
2,105,6,32,210,255,96, 
169,68,32, #1531 

162 DATA 210,255,169,39,32, 
210,255,32,186,195,133, 
34,32,186, 195, #2163 

163 DATA 170,165,34,32,205, 
189,76,228,167,32,203, 
195, 10, 10, 10, #1726 

164 DATA 10,133,35,32,203, 
195,101,35,133,35,96,32, 
115,0,201 ,#1356 



GANADORES DE LOS MEJORES DE INPUT COMMODORE 



En el sorteo correspondiente al numero 12 entre quienes escribisteis mandando vuestros votes a LOS 
MEJORES DE INPUT han resultado ganadores: 



NOMBRE 



LOCALIDAD 



JUEGO ELEGIDO 



Marcos Duran Serrano 
Manuel Revuelta Sierra 
Luis Cazorla Seisdedos 
Jaime Fernandez del Mazo 
Ruben Igual Valero 
David Lumbreras Boldova 
Rafael Perez Fraile 
Ramon Pedro Neco Garcia 
J. Manuel Carrillo Montero 
Carlos Morata Sole 



Barcelona 

Alcobendas (Madrid) 

H. de Llobregat (Barcelona) 

Madrid 

Barcelona 

Zaragoza 

Santander 

Alicante 

Cordoba 

Lerida 



World Cup Carnival 
Spindizzy 
Games Maker 
Sauccer attack II 
Green Beret 
Desert Fox 
RMS - Titanic 
Skyfox 
Hardball 
Rambo 



INPUT 21 



AplkcKiones 



165 DATA 58,41,15,144,2,105, 
8,96,32,138,173,32,247, 
183,169, #1443 

166 DATA 91,32,210,255,169,0 
,166,20,32,205,189,169, 
44 ,32 ,210, #1824 

167 DATA 255,169,0,166,21,32 
,205,189,169,93,32,210, 
255, 96 ,32, #1924 

168 DATA 158,183,134,2,32, 
253,174,32,158,183,138, 
166,2,76, 205, #1 896 

169 DATA 189,5,0,0,32,121,0, 
208,6,169,0,141,14,196, 
96, #1177 

170 DATA 169,1,141,14,196, 
169,53,141,4,3,169,196, 
141, 5,3, #1 405 

171 DATA 32,138,173,32,247, 
183,165,20,141,12,196, 
165,21 ,141 ,13, #1679 

172 DATA 196,96,173,0,2,201, 
48,144,59,201,58,176,55, 
173, 14, #1596 

173 DATA 196,240,50,32,124, 
165,132,2,173,12,196,24, 
101 ,20,133, #1600 

174 DATA 99,173,13,196,101, 
21,133,98,162,144,56,32, 
73, 188,32, #1521 

175 DATA 223,189,133,254,132 
,244,160,0,177,254,240,6 
,153,119,2, #2286 

176 DATA 200,208,246,132,198 
,164,2,96,76,124,165,0,0 
,0,0, #1611 

177 PRINT"CSHIFT+CLR/HOlviE]": 
X=49152:C=76:G0SUB 200 

178 DATA 169,11,141,8,3,169, 
205,141,9,3,96,32,115,0, 
201, #1303 

179 DATA 64,240,3,76,231,167 
,160,1,177,122,133,255, 
160,2, 177, #1968 

180 DATA 122,133,2,162,0,189 
,128,206,197,255,208,9, 
232,189, 128, #2160 

181 DATA 206,197,2,240,16, 
202,201,0,240,6,232,232, 
224, 128,208, #2334 

182 DATA 230,162,11,108,0,3, 
134,2,32,115,0,32,115,0, 
32, #976 

183 DATA 115,0,166,2,189,255 
,205,133,252,189,0,206, 

22 INPUT 



133, 253, 169, #2267 

184 DATA 76,133,251,32,251,0 
,76,174,167,96,0,0,0,0,0 
,#1256 

185 X=52480:C=6:G0SUB 200 

186 DATA 0,192,33,192,64,192 
,96,192,169,192,1,193,36 
,193,43 ,#1788 

187 DATA 193,61,193,163,193, 
189,193,36,194,48,194,51 
,194, 54,194, #2150 

188 DATA 57,194,63,194,69, 
194,74,194,80,194,86,194 
,89,194,95, #1971 

189 DATA 194,101,194,107,194 
,113,194,118,194,123,194 
,132,194,159, 194,#2405 

190 DATA 189,194,202,194,233 
,194,8,195,65,195,97,195 
/ 100,195,159,#2415 

191 DATA 195,215,195,251 ,195 
,15,196,73,197,0,0,0,0,0 
,0,#1532 

192 X=52736:C=5:G0SUB 200 

193 DATA 153,37,67,176,151, 
82,151,83,77,137,80,151 
,156,39,80, #1620 

194 DATA 194,77,135,146,39, 
83,145,83,139,83,156,83 
,162,85 ,80, #1690 

195 DATA 165,48,165,49,75, 
156,150,48 ,150,49,164, 
80,1 58,48,1 58, #1663 

196 DATA 49,198,48,198,49, 
145,48,145,49,71,137,66, 
162 ,77,1 84, #1626 

197 DATA 146,161,161,162,76, 
140,77,148,67,199,78,162 
,69,39,72,#1757 

198 DATA 39,185,84,190,84, 
145,164,82,155,0,0,0,0,0 
,0,#1128 

199 X=52864:C=5:G0SUB 200: 
GOTO 205 

200 FOR Z= TO C:T=0:FOR ZZ 
=0 TO 1 4:READ MrPOKE X,M 

201 PRINT'TCRSR arri baULINEA 
"PEEK(63)+PEEK(64)*256: 
T=T+M:X=X+1 

202 NEXT ZZ: READ X$:IF VAL( 
RIGHT$(X$,LEN(X$)-1))OT 
THEN 204 

203 NEXT Z:PRINT"0KC2*CRSR 
aba j o] ": RETURN 

204 PRINT"ERROR EN LA LINEA" 



: END 

205 K=50505:T=0 

206 READ A: IF A=-1 THEN 209 

207 POKE K,A:K=K+1 

208 T=T+A:G0T0 206 

209 IF T052549 THEN PRINT 
"C2*CRSR abajoHGERROR 
EN LA SUMA DE COMPROBA 
CI0N":END 

210 IF KO50928 THEN PRINT 
"C2*CRSR aba j ol ERROR EN 
LAS CIFRAS":END 

211 PRINT"USA SYS 52480 PARP 
EJECUTAR EL CODIGO 
MAQUINA" 

212 END 

213 DATA 32,253,174,32,107, 
169,165 

214 DATA 20,133,53,165,21, 
133,54 

215 DATA 32,253,174,32,107, 
169,165 

216 DATA 20,133,49,165,21, 
133,50 

217 DATA 32,142,166,32,201, 
198,32 

218 DATA 201,198,208,33,32, 
2,198 

219 DATA 32,201,198,32,201, 
198,208 

220 DATA 3,76,212,198,32,201 
,198 

221 DATA 165,99,145,122,32, 
201,198 

222 DATA 165,98,145,122,32, 
13,198 

223 DATA 240,226,32,201,198, 
32,201 

224 DATA 198,32,201,198,201, 
34,208 

225 DATA 11,32,201,198,240, 
197,201 

226 DATA 34,208,247,240,238, 
170,240 

227 DATA 188,16,233,162,4, 
221,235 

228 DATA 198,240,5,202,208, 
248,240 

229 DATA 221,165,122,133,59, 
165,123 

230 DATA 133,60,32,115,0, 
176,211 

231 DATA 32,107,169,32,32, 
198,165 

232 DATA 60,133,123,165,59, 



Aplkaeiones 



133,122 

233 DATA 160,0,162,0,189,0,1 

234 DATA 240,17,72,32,115,0, 
144 

235 DATA 3,32,82,198,104, 
160,0 

236 DATA 145,122,232,208,234 
,32,115 

23,' DATA 0,176,8,32,97,198, 

32 

238 DATA 121,0,144,248,201, 
44,240 

239 DATA 186,208,152,165,53, 
133,99 

240 DATA 165,54,133,98,76, 
142,166 

241 DATA 165,99,24,101,49, 
133,99 

242 DATA 165,98,101 ,50,133, 
98,32 

243 DATA 201,198,208,251,96, 
32,2 

244 DATA 198,32,201,198,32, 
201,198 

245 DATA 208,8,169,255,133, 
99,133 

246 DATA 98,48,14,32,201,198 
,197 

247 DATA 20,208,16,32,201, 
198,197 

248 DATA 21 ,208,12,162,144, 
56,32 

249 DATA 73,188,76,223,189, 
32,201 

250 DATA 198,32,13,198,240, 
209,32 

251 DATA 114,198,230,251,32 
,165,198 

252 DATA 230,45,208,2,230,46 
,96 

253 DATA 32,114,198,198,251 , 
32,141 

25*. DATA 198,165,45,208,2, 
198,46 

255 DAT A 198,45,96,32,124, 
198,160 

256 DATA 0,132,17,132,251,96 
,165 

257 DATA 122,133,34,165,123, 
133,35 

258 DATA 165,45,133,36,165, 
46,133 

259 DATA 37,96,164,17,200, 
177,34 

260 DATA 164,251,200,145,34, 



32,190 

261 DATA 198,208,1,96,230, 
34,208 

262 DATA 236,230,35,208,232, 
164,17 

263 DATA 177,36,164,251,145, 
36,32 

264 DATA 190,198,208,1,96, 
165,36 

265 DATA 208,2,198,37,198,36 
✓76 

266 DATA 165,198,165,34,197, 
36,208 

267 DATA 4,165,35,197,37,96, 
160 

268 DATA 0,230,122,208,2,230 
,123 

269 DATA 177,122,96,32,51, 
165,165 

270 DATA 34,166,35,24,105,2, 
133 

271 DATA 45,144,1,232,134, 
46,32 

272 DATA 89,166,76,116,164, 
0,137 

273 DATA 138,141,167,-1 



Si en Lugar de utilizar el 
cargador BASIC prefieres 
recurrir a un ensamb lador, 
aqu1 tienes el 1 1st ado. 



DIR. HEXADEC. NEMONICO 













,C000 20 


9E 


B7 


JSR 


SB79E 


,C003 8E 


86 


02 


STX 


$02 86 


,C006 20 


FD 


AE 


JSR 


SAEFD 


,C0C9 20 


9E 


B7 


JSR 


SB79E 


,C0OC 8 A 






TXA 




,C00D 48 






Phi A 




,COOE 20 


FD 


AE 


JSR 


SAEFD 


,C011 20 


9E 


B7 


JSR 


SB79E 


,C014 68 






PL A 




,C015 A8 






TAY 




,C016 18 






CLC 




,C017 20 


FO 


FF 


JSR 


SFFFC 


,C01A 2.0 


FD 


AE 


JSR 


SAEFD 


,C01D 20 


A4 


AA 


JSR 


$AAA4 


,C020 60 






RTS 




,C021 20 


9E 


B7 


JSR 


SB79E 


,C024 8E 


86 


02 


STX 


$0286 


,C027 20 


FD 


AE 


JSR 


SAEFD 


,C02A 20 9E 


B7 


JSR 


SE79E 


,C02D 8E 


20 


DO 


STX 


SD020 



,C030 20 


FD 


AE 


JSR 


SAEFD 


,C033 20 


9E 


B7 


JSR 


SB79E 


,C036 8E 


21 


DO 


STX 


SD021 


,C039 60 






RTS 




,C03A 20 


F7 


B7 


JSR 


SB7F7 


,C03D 20 


FD 


AE 


JSR 


SAEFD 


,C040 20 


EB 


B7 


JSR 


SB7EB 


,C043 8E 


13 


03 


STX 


$0313 


,C046 A9 


00 




LDA 


#$00 


,C048 85 


02 




STA 


$02 


,C04A 20 


FD 


AE 


JSR 


SAEFD 


,C04D 20 


9E 


B7 


JSR 


SB79E 


,C050 8A 






TXA 




,C051 A4 


02 




LDY 


$02 


,C053 91 


14 




STA 


($14), Y 


,C055 CC 


13 


03 


CPY 


$0313 


,C05S FO 


05 




BEG 


$C05F 


,C05A E6 


02 




INC 


$02 


,C05C 4C 4A 


CO 


J KiP 


SC04A 


,C05F 60 






RTS 




,C060 20 8 A 


AD 


JSR 


SAD8A 


,C063 20 


F7 


B7 


JSR 


SB7F7 


,C066 A5 


14 




LDA 


$14 


,C068 85 


FB 




STA 


SFB 


,C06A A5 


1 5 




LDA 


$15 


,C06C 85 


FC 




STA 


$FC 


, LUot CU 


FD 


AE 


JSR 


SAEFD 


, L.U f I CU 


OA 


AD 


JSR 


SAD8A 




F7 
r i 


B7 


JSR 


SB7F7 


,C077 20 


FD 


AE 


JSR 


SAEFD 


,C07A 20 


9E 


B7 


JSR 


SB79E 


,C07D 86 


02 




STX 


$02 


,C07F A5 


15 




LDA 


$15 


,C081 C5 


FC 




CMP 


SFC 


,C083 90 


23 




BCC 


SC0A8 


,C085 DO 


06 




B'NE 


SC08D 


,C087 A5 


14 




LDA 


$14 


,C089 C5 


FB 




CMP 


SFB 


,C08B 9C 


1B 




BCC 


SC0A8 


,C08D A.5 


02 




LDA 


$02 


,C08F AO 


00 




LDY 


#$00 


,C091 91 


FB 




STA 


($FB) , Y 


,C093 A5 


FB 




LDA 


SFB 


,C095 C5 


14 




CMP 


$14 


,C097 DO 


06 




BNE 


SC09F 


, CO 9.9 A 5 


FC 




LDA 


SFC 


,C09B C5 


15 




CMP 


SI 5 


,C09D FC 


09 




BEG 


SC0A8 


,C09F F6 


FB 




1 vi L 


<J C D 

a> r d 


, COA1 DO 


E A 




PMF 

BHC 


5 (' fifth 

L U O 


,C0A3 E6 


FC 




INC 


SFC 


,C0A5 4C 


£D 


CO 


J!*P 


SC08D 


,C0A8 60 






RTS 




,C0A9 20 


8A 


AD 


JSR 


SA.D8A 


,COAC 20 


F7 


B7 


JSR 


SB7F7 



INPUT 23 



Aplicaciones 



rn a p 


a c; 
Au8 


i *+ 




1 ft A 


JJ 1 H 


rnR 1 


R^ 


FP 
ro 




C T A 


<J" CD 

a>rc 


, LUDj 


A ^ 

n P 






L I'M 


<tl e; 
$ I j 


, UUDJ 


8S 


ft 

r L 




S T A 


ci>r L 


rriR? 


?n 


ft 

r U 


AF 

r. t 




C A r r r, 


r n r a 


?n 


R A 
On 


A ft 


■J w K 


* A f>0 ft 




? n 

C. U 


r 7 
r f 


C7 


J a K 


a>t> i r ( 




il ^ 
aj 


•1 L 




i ft a 
L l> A 


J- i 4 


rn r7 

, LU Lc 


O J 


C ft 
r v 




O ) P 


Oi L) 


rn rz. 

, LU It 








1 ft & 




, LU LO 


Rc; 


c p 
r t 




Ql ft 

5 1 A 


Srt 


f LU Lo 


pn 


Fft 


fiP 


1 C D 
J a K 


<t a p n r\ 


rn cr 


£ u 


R A 
oh 


A ft 
ML/ 




A AUo A 


rn rp 


?n 

c. L) 


r / 


P7 


J O K 


4-D7 r7 
vPb < r / 


, LUU 1 


A? 


r t 




Li/A 


trr 


rnn^ 

, LUU~> 


rs 

L J 


F r 

r L 




Lnr 


if L 


rn r*^ 

, LU V J 


on 

7U 


£- 7 




DLL 


L 1 L U 


, LU U / 


nn 

uu 


uo 




DM C 


4>LUL r 


, LUUV 


A C 

ft 3 


P ft 




l h A 


3t r L> 




rs 


FP 




Lrfr 


■i p c> 
*p r d 


,C0DD 


90 


21 




BCC 


SC100 


,C0DF 


AO 


00 




LDY 


A'$00 


,C0E1 


El 


FB 




LDA 


($FB) 


,C0E3 


91 


14 




STA 


($1A),Y 


,C0E5 


A5 


FB 




LDA 


$FB 



rn rT 

, CUE/ 


L3 


FD 




CMP 


$FD 


, LUEV 


Du 


06 




BNE 


SC0F1 


, CDEB 


ft C 

A. 5 


F C 




LDA 


$FC 


, CUED 


C5 


FE 




CMP 


$FE 


, L L J E F 


FQ 


OF 




BEQ 


$C1 00 


,CUF 1 


E6 


FB 




Ifv C 


SFB 


,C0FS 


DO 


02 




BNE 


$C0F7 


,C0F5 


E6 


FC 




INC 


$FC 


,C0F7 


E6 


14 




INC 


$14 


/ C0F9 


DO 


E4 




BNE 


$C0DF 


, CO FB 


E6 


15 




INC 


$15 


,C0FD 


4C 


DF 


CO 


Jl^iP 


SC0DF 


,0100 


60 






RTS 




, CI G1 


20 


8 A 


AD 


JSR 


$AD8A 


,C1 04 


20 


F7 


B7 


JSR 


SB7 F7 


,C107 


A 5 


14 




LDA 




, C i 09 


ci r* 

85 


FB 




S T A 


$FB 


, CI 0B 


A5 


1 5 




LDA 


$1 5 


,l1uD 


55 


FC 




STA 


SFC 


,L !UF 


tU 


FD 


AE 


JSR 


SAEFD 


,C112 


20 


8A 


AD 


JSR 


SAD8A 


/ens 


20 


F7 


B7 


JSR 


SB7F7 


,C118 


AO 


00 




LDY 


^$00 


,C11A 


A5 


14 




LDA 


$14 


,C11C 


91 


FB 




STA 


($FB),Y 



,C1 1 E 


A5 


15 




LDA 


SI 5 


,C120 


C8 






INY 




, C121 


91 


FB 




STA 


C SFB) ,Y 


, C1 23 


60 






RTS 




,C124 


20 


9E 


B7 


J SR 


SB79E 


,C127 


20 


FF 


E9 


JSR 


SE9FF 


,C12A 


60 






RTS 




,C12B 


20 


8A 


AD 


JSR 


$AD8A 


,C12E 


20 


F7 


B7 


JSR 


SB7F7 


,C151 


AO 


00 




LDY 


#$00 


,C133 


B1 


14 




LDA 


($14) ,Y 


,C135 


AA 






TAX 




,C136 


C8 






INY 




,C1 37 


r~.A 

B i 


14 




LDA 


($14) ,Y 


,C139 


20 


CD 


BD 


JSR 


SBDCD 


,C13C 


60 






RTS 




,C13D 


20 


8 A 


AD 


JSR 


SAD8A 


, CI 40 


20 


F7 


B7 


JSR 


$B7F7 


,C143 


A5 


14 




LDA 


$14 


,C145 


85 


FB 




STA 


$FB 


,C147 


A5 


15 




LDA 


$15 


,C1 49 


85 


FC 




STA 


SFC 


,C14B 


20 


FD 


AE 


JSR 


$AEFD 


,C14E 


20 


8A 


AD 


JSR 


SAD8A 


,C151 


20 


F7 


B7 


J SR 


$B7F7 




a. DUQUE DE SESTO, 50. 28009 MADRID 
METRO O'DONNELL O GOYA 



SOFTWARE: \\2 PROGRAMAS POR EL PRECIO DE 1!! 
Y ADEMAS, COMPLETAMENTE GRATIS UNA CALCULADORA. INCREIBLE ^VERDAD? 



LEADERBOARD. 

MAP GAME 

GREEN BERET _ 



ROCK'N LUCHA 

THE WAY OF THE TIGER. 

GOONIES 

RAMBO 



PING PONG. 



2.600 ptas. 
2.300 ptas. 
2.300 ptas. 
2.500 ptas. 
2.500 ptas. 
2.600 ptas. 
2.300 ptas. 
2.300 ptas. 



KNIGHT GAMES. 
NEXUS 

«V» 



YIE AR KUNG FU 

SABOTEUR 

CAULDRON II 

ZORRO 



WORLD CUP 



RATON PARA COMMODORE 
TAPA COMMODORE 64 



JOYSTICK QUICK SHOT I 
JOYSTICK QUICK SHOT II 
JOYSTICK QUICK SHOT V 



2.300 ptas. 
2.300 ptas. 
2.300 ptas. 
2.300 ptas. 
2.300 ptas. 
2.300 ptas. 
2.100 ptas. 
2.500 ptas. 



SOFTWARE DE REGALO (OFERTA 2 x 1): 
FIGHTING WARRIOR - DUMMY RUN - INDIANA JONES - POLE POSITION 



9.900 ptas. 
1.100 ptas. 



1.395 ptas. 
1.695 ptas. 
1.695 ptas. 



Pedidos contra reembolso sin ningun gasto de envio. Telefs. (91) 275 96 16 - 274 75 02, 
o escribiendo a: MICRO-1. CI. Duque de Sesto, 50. 28009 Madrid 



24 INPUT 



-plicociooes 







1 % 




I ft A 

L. w n 


■iii s 


, C1 C6 


AO 


07 




LDY 


#$C7 




r?4S 

f Vrf t_ — ' 


A9 

i - 7 


00 




L DA 


#S00 




rs 


Ff 




CMP 
u ir 


r v.. 


, C1 C8 


EO 


02 




CPX 


#$02 




f?47 


PS 


r6 




STA 


$C6 


f 1 S8 


90 


3D 

17 




BCC 


$C1 97 


,C1 CA 


DO 


02 




BNE 


$C1 CE 




C249 


60 






RTS 




C1 S A 


DO 


0<s 




ENE 


SC1 62 


,C1 cc 


AO 


OE 




LDY 


P$0t 




,C24A 


A 9 


ED 




LDA 


#$ED 


CT5f 


A5 


14 




L. D A 


$1 4 


,C1 CE 


84 


02 




STY 


$02 




,C24C 


8D 


28 


03 


STA 


$0328 


C15F 


C5 


PR 




CMP 


$P B 


,C1 DO 


20 


FD 


AE 


JSR 


$AEFD 




C24F 


60 






RTS 




c 1 fid 

y v I UU 


on 

7 V J 






RfC 


SCI 97 


, C1 D3 


20 


9E 


B7 


J SR 


SE79E 




C250 


A 9 


FB 




LDA 


/J ! $FB 


PI A? 


CO 


00 




I DA 


/?S00 




8E 


18 


D4 


STX 


SD418 




,0252 


8D 


28 


03 


STA 


$0328 


CI 64 


85 


FT; 




STA 


$ F D 


. C1 D9 


20 


FD 


AE 


J SR 


SAEFD 






60 

u u 






RTS 




y V- 1 UU 


PS 

U 


FF 




ST A 


$FE 


,C1 DC 


20 


9E 


B7 


JSR 


SB79E 




C2S6 


4C 


66 


E5 


J MP 


SE.566 


C168 


1 8 






CLC 




,C1 DF 


8 A 






TXA 






C259 


A 9 


1 B 




LDA 


#$1 B 


C16Q 

y \* \ w 7 


AO 


00 




LDY 


£$00 


, CI EG 


A4 


02 




LDY 


$02 




C25B 


8D 


1 1 


DO 


STA 


$D011 


CI 6P 


B1 


FB 




LDA 


($FB) , Y 


,C1E2 


99 


05 


D4 


STA 


$D4Q5, 


Y 


C2SE 

y V C I— 


60 






RTS 




ri 6D 

j V 1 V7 17 


AA 






TAX 




,C1E5 


20 


FD 


AE 


JSR 


$AEFD 




,C25 F 


A9 


0B 




LDA 


#$0B 


n 6F 

y V. i U L- 


6S 

U — ' 


FB 

1 U" 




ADC 


?>F D 


,C1E8 


20 


9E 


B7 


J SP 


$B79E 




C261 


8D 


1 1 


DO 


STA 


$ D01 1 


ri7f] 

it- 1 1 u 


8S 


FD 




STA 


SFD 


,C1 EB 


8A 






TXA 






C264 


60 






PTS 




Ci 77 

#V! f b 


AS 


FF 




1 DA 


SF F 


,C1 EC 


A4 


02 




LDY 


$02 




f?6S 


A9 


1 5 




LDA 


#$1 5 


C\7 L 


U 7 


on 

UU 






tr u u 


,C1 EE 


99 


06 


D4 


STA 


$D406,Y 


C767 

y U C U f 


8D 

U *7 


1 8 


DO 


STA 


$D01 8 


^v> l 1 U 


8S 


FF 




STA 


SFF 


,C1 Fl 


20 


FD 


AE 


J SR 


SAEFD 




r?6 a 


60 

u u 






RTS 






A9 


00 




I DA 

i— w r* 


#S00 


,C1 F4 


20 


9E 


B7 


JSR 


$B79E 




C26B 


A 9 


17 




LDA 


#$17 


r 17 A 


70 
c u 




RD 


i SP 

o p. 


DTD 


,C1 F7 


8A 






TXA 






C26 D 

^ *w L- V.. 1/ 


8D 


1 8 


DO 


STA 


SD01 8 


p17d 

y Is 1 f 17 


A9 


2C 




1 DA 


#S2 f 


,C1 F8 


A4 


02 




LDY 


$02 




C270 


60 






RTS 




,C17F 


20 


D2 


FF 


uSR 


SFFD2 


,C1 FA 


99 


04 


D4 


STA 


SD404. 


Y 


,C271 


A 9 


09 




LDA 


#$09 


,C182 


A 5 


FB 




LDA 


SFB 


,C1 FD 


8E 


13 


03 


STX 


$0313 




,C273 


4C 


D2 


F F 


JMP 


$F FD2 


C184 


C5 


•14 




CMP 


$14 


,C200 


20 


FD 


AE 


J SP 


SAEFD 




-C?76 


A9 


08 




LDA 


#$08 


,C186 


DO 


06 




BIME 


$C1 8E 


,C203 


20 


9E 


B7 


J SR 


$B79E 




7 C278 


4C 


D2 


FF 


JMP 


SF FD? 


,C188 


A5 


FC 




LDA 


$FC 


,C206 


8 A 






TXA 






, C27B 


20 


8A 


AD 


JSR 


$AD8A 


,C18A 


C5 


15 




CMP 


S15 


,C207 


A4 


02 




I DY 


$02 




, C27E 


20 


F7 


B7 


JSR 


$B7F7 


,C18C 


FO 


09 




BEQ 


$C1 97 


C209 


99 


01 

U i 


D4 


STA 


SD401 , 


Y 


, C281 


4C 


A3 


A8 


JMP 


$A8A3 


,C18E 


E6 


FB 




INC 


SFB 


C20C 


20 


FD 


AF 


JSR 

U O i\ 


$AE FD 




,C284 


20 


8 A 


AD 


JSR 


SAD8A 


,C190 


DO 


D6 




BNE 


SCI 68 


C70F 
y» uc u r 


70 

c~ U 


9F 


R7 


1 SR 

J w T\ 


$B79E 




,C287 


2.0 


F7 


B7 


J SR 


SB7F7 


,C1 92 


E6 


FC 




INC 


$FC 


C212 


8A 

U r\ 






TXA 






r?8 a 

y V£- U O 


A9 

Ti 7 


00 




1 DA 


#$00 


,C194 


4C 


68 


C1 


J MP 


SC1 68 


C71 ^ 


A4 


07 




1 DY 


$02 




r?8 c 


A8 

n u 






TA Y 




,C1 97 


A9 


23 




LDA 


#$23 


C21 5 


99 


00 


D4 


ST A 


$D400, 


Y 


,C28D 


91 


1 4 




STA 


($14) Y 


,C199 


20 


D2 


FF 


JSR 


$ F F D2 




PF 




03 

U-J 


df r 

u L L 


$031 3 




y UL U 1 


1 8 










, C1 9 C 


A6 


FD 




LDX 


$FD 


C21 P 


AD 


13 


03 


1 DA 


$0313 




C290 


AS 


1 4 




LDA 


$1 4 


,C19E 


A5 


FE 




LDA 


SFE 


C21 E 


A4 


02 




1 DY 


$02 




r C292 


69 


01 




ADC 


#$01 


,C1 AO 


4C 


CD 


BD 


JMP 


SBDCD 


C220 


99 


04 


D4 


STA 


SD4Q4, 


Y 


C294 

y V/ t~ 7 *T 


85 


2B 

C— L7 




STA 


$2B 


, C1 A3 


20 


8A 


AD 


JSR 


$AD8A 


y V U C ' 


60 

u u 






RTS 






C296 

y U£- 7 U 


A5 


1 5 




1 DA 

L- 17 r\ 


$1 s 


,C1 A6 


20 


F7 


B7 


JSR 


$B7 F7 




A7 


00 




1 DX 

1- U A 


#$00 




C298 


69 

U / 


00 

u u 




ADC 


#$00 


,C1 A9 


A2 


00 




LDX 


#$00 


C226 


8A 

u p 






TXA 






,C29A 


85 


2 C 




STA 


$2 C 

^ C— 


,C1 AB 


E8 






INX 




C777 


on 

> LV 


00 

UU 


D4 


STA 


$D400, 


X 


C29 C 

y V/ C- 7 v. 


4C 


9A 

7 i\ 


E3 


J MP 


$E39A 


,C1 AC 


DO 


FD 




BNE 


$C1 AB 


r?? a 


F8 

CO 






TMX 






C29F 

y U C 7 1 


A9 

7 


3F 




1 DA 


#$3F 


,C1 AE 


C6 


14 




DEC 


$14 


r??R 


FO 

L. U 


1 9 






#$19 




C2A1 


20 


D2 


F F 

i 1 


J SR 


$F FD2 


,C1B0 


A.9 


FF 




LDA 


#$FF 


C22D 


DO 


F8 




RMF 


$C227 




, C2A4 


A9 


12 




LDA 


#$12 


,C1B2 


C5 


14 




CMP 


$14 


y C- J 


60 

u u 






RTS 






,C2A6 


20 


D2 


FF 


JSR 


$F FD2 


,C1B4 


DO 


F5 




BNE 


$C1 AB 


,C230 


4C 


44 


E5 


J I^P 


$E544 




,C2A9 


A5 


37 




LDA 


$37 


,C1B6 


C6 


15 




DEC 


$15 


, C233 


4C 


18 


E5 


J MP 


$E518 




,C2AB 


38 






SEC 




,C1B8 


C5 


15 




CMP 


$15 


,C236 


4C 


EA 


E8 


J MP 


SE8EA 




,C2AC 


E5 


2D 




SBC 


$2D 


,C1BA 


DO 


EF 




BNE 


$C1 AB 


,C239 


A9 


00 




LDA 


#$00 




,C2AE 


AA 




• 


TAX 




,C1BC 


60 






RTS 




A C23B 


8D 


8A 


02 


STA 


S028A 




,C2AF 


A5 


38 




LDA 


$38 


,C1BD 


20 


9E 


B7 


JSR 


$B79E 


,C23E 


60 






RTS 






,C2B1 


E5 


2E 




SBC 


$2E 


,C1C0 


AO 


00 




LDY 


#$00 


,C23F 


A9 


80 




LDA 


#'$80 




A C2B3 


20 


CD 


BD 


JSR 


$BDCD 


,C1 C2 


E0 


01 




CPX 


#$01 


,C241 


8D 


SA 


02 


STA 


$028A 




,C2B6 


A9 


60 




LDA 


#$60 


,C1 C4 


DO 


02 




BNE 


$C1 C8 


,C244 


60 






RTS 






,C2B8 


AO 


E4 




LDY 


££E4 



INPUT 25 



Aplicaciones 



,C2BA 4C 1E 


AB 


J MP 


SAB1E 


,C32E A5 


15 




LDA 


$15 


,C39F 


A9 


44 




LDA 


#$44 


ff u £. u L' r\ / 


no 




LDA 


#$00 


,C330 85 


2E 




STA 


$2E 


,C3A1 


20 


D2 


FF 


JSR 


$FFD2 


T7RF 85 


C6 




STA 


$C6 


,C332 20 


56 


E1 


JSR 


SE156 


,C3A4 


A9 


27 




LDA 


#$27 




C6 




LDA 


$C6 


,C335 A2 


00 




LDX 


#$00 


,C3A6 


20 


D2 


FF 


JSR 


$FFD2 




01 




CMP 


#$01 


r C337 B5 


FB 




LDA 


$FB,X 


,C3A9 


20 


BA 


C3 


JSR 


SC3BA 




FA 




BNE 


$C2C1 


,C339 95 


2B 




STA 


$2B,X 


,C3AC 


85 


22 




STA 


$22 


C? CI LC 


9? 

7 €— 


AB 


J MP 


$AB92 


,C33B E8 






INX 




,C3AE 


20 


BA 


C3 


JSR 


$C3BA 


rPrfl /iO 


uo 




LDA 


#$08 


,C33C EO 


04 




CPX 


#$04 


,C3B1 


AA 






TAX 






U I 




LDY 


#$01 


,C33E DO 


F7 




BNE 


$C337 


,C3B2 


A5 


22 




LDA 


$22 


,C2CE 91 


2B 




STA 


($2B) ,Y 


,C340 60 






RTS 




,C3B4 


20 


CD 


BD 


JSR 


$BDCD 


,C2D0 20 


33 


A5 


JSR 


$A533 


,C341 20 


9E 


B7 


JSR 


$B79E 


,C3B7 


4C 


E4 


A7 


J MP 


$A7E4 


,C2D3 18 






CLC 




,C344 86 


02 




STX 


$02 


,C3BA 


20 


CB 


C3 


JSR 


$C3CB 


,C2D4 A5 


22 




LDA 


$22 


,C346 20 


FD 


AE 


JSR 


SAEFD 


,C3BD 


OA 






ASL 




,C2D6 69 


02 




ADC 


#$02 


,C349 20 


9E 


B7 


J SR 


SB79E 


,C3BE 


OA 






ASL 




,C2D8 85 


2D 




STA 


$2D 


,C34C 8E 


13 


03 


STX 


$0313 


,C3BF 


OA 






ASL 




,C2DA 85 2F 




STA 


$2F 


,C34F A5 


02 




LDA 


$02 


,C3C0 


OA 






ASL 




,C2DC 85 


31 




STA 


$31 


,C351 C9 


00 




CMP 


#$00 


,C3C1 


85 


23 




STA 


$23 


,C2DE A5 


23 




LDA 


$23 


,C353 FO 


OB 




BEQ 


$C360 


,C3C3 


20 


CB 


C3 


JSR 


$C3CB 


,C2E0 69 00 




ADC 


#$00 


,C355 AD 


13 


03 


LDA 


$0313 


,C3 C6 


65 


23 




ADC 


$23 


,C2E2 85 


2E 




STA 


$2E 


,C358 20 


D2 


FF 


JSR 


SFFD2 


, C3 C8 


85 


23 




STA 


$23 


,C2E4 85 


30 




STA 


$30 


,C35B C6 


02 




DEC 


$02 


,C3CA 


60 






RTS 




,C2E6 85 


32 




STA 


$32 


,C35D 4C 4F 


C3 


JMP 


$C34F 


,C3CB 


20 


73 


00 


JSR 


$0073 


,C2E8 60 






RTS 




/ C360 60 






RTS 




,C3CE 


C9 


3A 




CMP 


#$3 A 


,C2E9 20 8A 


AD 


JSR 


$AD8A 


,C361 4C 


9A 


E3 


4 HP 


$E39A 


,C3D0 


29 


OF 




AND 


#$0F 


,C2EC 20 


F7 


B7 


JSR 


$B7F7 


,C364 20 


8A 


AD 


JSR 


$AD8A 


,C3D2 


90 


02 




BCC 


$C3D6 


,C2EF A5 


14 




LDA 


$14 


,C367 20 


F7 


B7 


JSR 


$B7F7 


,C3D4 


69 


08 




ADC 


#$08 


,C2F1 85 


3F 




STA 


$3F 


,C36A AA 






TAX 




,C3D6 


60 






RTS 




,C2F3 A5 


1 5 




LDA 


$15 


,C36B A9 


48 




LDA 


#$48 


,C3D7 


20 


8A 


AD 


JSR 


$AD8A 


,C2F5 85 


40 




STA 


$40 


,C36D 20 


D2 


FF 


JSR 


SFFD2 


,C3DA 


20 


F7 


B7 


JSR 


$B7F7 


,C2F7 20 


13 


A6 


JSR 


$A613 


/ C370 A9 


27 




LDA 


#$27 


,C3DD 


A9 


5B 




LDA 


#$5B 


,C2FA 38 






SEC 




,C372 20 


D2 


FF 


JSR 


$FFD2 


,C3DF 


20 


D.2 


FF 


JSR 


$FFD2 


,C2FB A5 


5F 




LDA 


$5F 


,C375 A9 


24 




LDA 


#$24 


,C3E2 


A9 


00 




LDA 


#$00 


,C2FD E9 


01 




SBC 


#$01 


,C377 20 


D2 


FF 


JSR 


$FFD2 


,C3E4 


A6 


14 




LDX 


$14 


,C2FF 85 


41 




STA 


$41 


,C37A 8 A 






TXA 




,C3E6 


20 


CD 


BD 


JSR 


$BDCD 


,C301 A5 


60 




LDA 


$60 


,C37B 20 


8B 


C3 


JSR 


$C38B 


,C3E9 


A9 


2C 




LDA 


#$2C 


,C303 E9 


00 




SBC 


#$00 


,C37E 8 A 






TXA 




,C3EB 


20 


D2 


FF 


JSR 


$FFD2 


,C305 85 


42 




STA 


$42 


,C37F 20 


90 


C3 


JSR 


$C390 


,C3EE 


A9 


00 




LDA 


#$00 


,C307 60 






RTS 




,C382 98 






TYA 




,C3F0 


A6 


15 




LDX 


$15 


,C308 A2 


00 




LDX 


#$00 


,C383 20 


8B 


C3 


JSR 


SC38B 


,C3F2 


20 


CD 


BD 


JSR 


$BDCD 


,C30A B5 


2B 




LDA 


$2B,X 


,C386 98 






TYA 




,C3F5 


A9 


5D 




LDA 


#$5D 


,C30C 95 


97 




STA 


$97, X 


,C387 20 


90 


C3 


JSR 


$C390 


,C3F7 


20 


D2 


FF 


JSR 


$FFD2 


,C30E E8 






INX 




,C38A 60 






RTS 




,C3FA 


60 






RTS 




,C30F E0 


04 




CPX 


#$04 


,C38B 18 






CLC 




,C3FB 


20 


9E 


B7 


JSR 


$B79E 


,C311 DO 


F7 




BNE 


$C30A 


,C38C 6A 






ROR 




,C3FE 


86 


02 




STX 


$02 


,C313 20 8A AD 


JSR 


$AD8A 


,C38D 6A 






ROR 




,C400 


20 


FD 


AE 


JSR 


$AEFD 


,C3T6 20 


F7 


B7 


JSR 


$B7F7 


,C38E 6 A 






ROR 




,C403 


20 


9E 


B7 


JSR 


$B79E 


,C319 A5 


14 




LDA 


$14 


,C38F 6A 






ROR 




,C406 


8A 






TXA 




,C31B 85 


2B 




STA 


$2B 


,C390 29 


OF 




AND 


#$0F 


,C407 


A6 


02 




LDX 


$02 


,C31D A5 


15 




LDA 


$15 


,C392 18 






CLC 




,C4C9 


4C 


CD 


BD 


J MP 


$BDCD 


,C31F 85 


2C 




STA 


$2C 


,C393 69 30 




ADC 


#$30 


,C40C 


05 


00 




ORA 


$00 


,C321 20 


FD 


AE 


JSR 


$AEFD 


,C395 C9 


3A 




CMP 


#$3 A 


, C40E 


L)U 






BRK 




,C324 20 


8A 


AD 


JSR 


$AD8A 


,C397 90 


02 




BCC 


$C39B 


,C40F 


20 


79 


00 


JSR 


$0079 


,C327 20 


F7 


B7 


JSR 


$B7F7 


,C399 69 


06 




ADC 


#$06 


,C412 


DO 


06 




BNE 


$C41A 


,C32A A5 


14 




LDA 


$14 


,C39B 20 


D2 


FF 


JSR 


$FFD2 


,C414 


A9 


00 




LDA 


#$00 


,C32C 85 


2D 




STA 


$2D 


,C39E 60 






RTS 




,C416 


8D 


OE 


C4 


STA 


$C40E 



26 INPUT 



Aplicaciones 



C I 1 O 


i. c< 
6U 






R ! S 






AO 

AV 


! 




L DA 




p/. 1 r 


D D 


o r 
u t 


p/ 


b 1 A 


<r r /. r> c 




AV 


-> J 




LDA 




p/. o i 


o u 


V.I 






tP 7 n / 


ci ? /, 
, Ls-il^ 


A O 


el 






ff b C4 


p/, OA 


P r. 


LO 


U^5 


C T A 

b 1 A 


■5 P 7 P C" 


p/ "50 


O P 


oA 


AD 


j bK 


p r r\ o a 

SA D8A 


p-/, 7 p 
, \Ji c L 


on 


r~ 

r i 




J b r 




r/, 9 ir 


AD 






i rv A 
L DA 


<r "i / 


pa "< f 


Pn 


r i p 
U L 


L4 


C T A 

b 1 A 


if r/ n r- 

^Lm-UC 






1 D 




LDA 


41 C 

3> I D 


PA 7£ 


o u 


U D 




CT A 

b 1 A 


a r /, r ^ 




DO 






K 1 O 




p /. "z ^ 




uu 


no 

L/C 


LDA 


<tronn 

-bUslUU 


rA 7h 


1-7 


JU 




CMC 


V'C^n 
/'2ou 


CI % c 


or, 

7U 


7D 
D 




err 


bL4 C 


ci i " 




7 A 

~> A 








P /. A ~z 


DP 1 

DU 






r< c* 

BCS 


$C47 C 


ci. 1 K 


A Pi 
AD 


n c 

lit 




1 r\ A 

LDA 




CI, i Q 
, Who 


ru 


"g ""3 




Li 


r- / ~7 r- 
ibLn-r L 


CI 1 A 


on 


7 P 


A C 

A? 


J bR 


$Ab r C 


ci. i ft 


p / 

C4 


n*i 
U£ 




O T V 

STY 




p/ / c 


AD 


Pi r 




LDA 


SL4UC 


,C452 


18 






PI P 

LLC 




,C453 


65 


14 




ADC 


SI 4 


,C455 


85 


o_> 




P T A 

bl A 


S>6o 


,C457 


AD 


nn 
UU 






tf* p / P» r> 

SCA-LD 


,C45A 


65 


1 J 




ADL 


5-1 5 


,C45C 85 


AO 
Of! 




b 1 A 


it / T 


,C45E 


A2 


on 

yu 




LDX 




,C46C 38 






f* r* c- 

SEC 




,C461 


20 


/ o 


BC 


J SR. 


SBC4V 


,C464 


20 


Dr 


r> in 

BP 


J bR 


bE DDF 


,C467 


85 


r t 




OTA 

b I A 




,C469 


84 


r / 

r H 




r- tv 
b 1 I 


r / 

3>h4 


,C46B 


AO 


nn 




[ f"- V 

LLY 


f"tnn 
^■iUU 


,C46D 


B1 


r t 




i r\ a 
LDA 


(.4>rb.) , Y 


,C46F 


F0 


Pa 
uo 




DC ft 


rf- p/ 77 


,C471 


99 


77 


no 

Ut_ 


C T A 


<tn077 V 


,C474 


C8 






INY 




,C475 


DO 


ru 








,C477 84 


C6 




STY 


$C6 


,C479 


A4 


02 




LDY 


$02 


,C47B 


60 






RTS 




,C47C 


4C 


7C 


A5 


J MP 


SA57C 


,CD00 


A9 


0B 




L DA 


ff$0B 


,CD02 


8D 


08 


Lo 


P T A 

STA 


$0^08 


, CDD5 


A9 


CD 




LDA 


#$CD 


,0007 


8D 


09 


03 


STA 


$0309 


,CDGA 


60 






RTS 




,CD0B 20 73 


00 


JSR 


$0073 


,CD0E 


C9 


40 




CNP 


#S40 



,CD10 


F0 


03 




BEG 


$CD15 


,CD12 


4C 


E7 


A7 


JMP 


SA7E7 


,CD15 


AO 


01 




LDY 


#$01 


,CD17 


B1 


7A 




LDA 


( $7 A) , Y 


,CD19 


85 


FF 




STA 


$FF 


,CD1B 


AO 


02 




LDY 


#$02 


, CD1 D 


Bl 


7A 




LDA 


($7A),Y 


,CD1 F 


85 


02 




STA 


S02 


,CD21 


A2 


00 




LDX 


#$00 


,CD23 


BD 


80 


CE 


LDA 


$CE80,X 


,CD26 


C5 


FF 




CMP 


$FF 


,Cl>28 


DO 


09 




BNE 


SCD33 


,CD2A. 


E8 






INK 




,CD2B 


BD 


80 


CE 


LDA 


$CE80,X 


,CD2E 


C5 


02 




CMP 


$02 


,CD30 


F0 


10 




BEQ 


SCD42 


,CD32 


CA 






DEX 




,CD33 


C9 


00 




CMP 


#$oc 


,CD35 


F0 


06 




BEG 


SCD3D 


,CD37 


E8 






INX 




,CD38 


E8 






INX 




,CD39 


E0 


80 




CPX 


#$80 


,CD3B 


DO 


E6 




BNE 


SCD23 


,CD3D 


A2 


0B 




LDX 


#$0B 


,CD3F 


6C 


00 


03 


JMP 


C$0300) 


,CD42 


86 


02 




STX 


$02 


,CD44 


20 


73 


00 


JSR 


$0073 


,CD47 


20 


73 


00 


JSR 


$0073 


,CD4A 


20 


73 


00 


JSR 


$0073 


,CD4D 


A6 


02 




LDX 


$02 


,CD4F 


BD 


FF 


CD 


LDA 


$CDFF,X 


,CD52 


85 


FC 




STA 


$FC 


,CD54 


BD 


00 


CE 


LDA 


SCECO^X 


,CD57 


85 


FD 




STA 


$FD 


,CD59 


A9 


4C 




LDA 


#$4C 


,CD5B 


85 


FB 




STA 


$FB 


,CD5D 


20 


FB 


00 


JSR 


SOOFB 


P P A Pi 
, LDOU 


/. p 

?t L 


At 


A7 

Ar 


J rfr 


& A 7 A P 

&A/ At 


r-f\/,7 
, LL>0_> 


An 
ou 






D TC 
K 1 b 




,CE00 


00 






BRK 




,CE01 


CO 


21 




CPY 


#$21 


,CE03 


CO 


40 




CPY 


#$40 


,CE05 


CO 


60 




CPY 


#$60 


,CE07 


CO 


A9 




CPY 


#$A9 


,CE09 


CO 


01 




CPY 


#$01 


,CE0B 


C1 


24 




CMP 


($24,X) 


,CE0D 


C1 


2B 




CF1P 


($2B,X) 


,CE0F 


C1 


3D 




CMP 


($3D,X) 


,CE11 


C1 


A3 




CMP 


($A3,X) 


,CE13 


C1 


BD 




CMP 


($BD,X) 


,CE15 


CI 


24 




CMP 


($24, X) 


,CE17 


C2 






??? 




,CE18 


30 


C2 




BMI 


$CDDC 



, CE1 A 


33 




? ? ? 




,CE1B 


C2 




??? 




,CE1 C 


36 


C2 


R0L 


$C2,X 


, CE1 E 


39 


C2 


3F AND 


$3 F (;2 , Y 


,(£21 


Cd 




??? 




, CE22 


45 


C2 


FOR 


SC2 


, CE24 


4A 




LSR 




, CE25 


c:2 








,CE26 


50 


C2 


BVC 


SCDEA 


,CE28 


56 


C2 


LSR 


$C2,X 


, CE2A 


59 


C2 


5f : EOP 


$5FC2,Y 


, CE2D 


C2 




??? 




,CE2E 


65 


C2 


ADC 


$C2 


, CE30 


6B 




O O 9 




,CF_31 


C2 




??? 




, CE32 


71 


C2 


ADC 


($C2),Y 


,CF34 


76 


C2 


R0R 


$C2,X 


,CE36 


7B 




??? 




,CE37 


C2 




??? 




, CE38 


84 


C2 


STY 


$C2 


,CE3A 


9F 




??'? 




, CE3B 


C2 








, CE3 C 


BD 


C2 


CA LDA 


$CAC2,X 


, CE3F 


C2 




??? 




,CE40 


E9 


C2 


SBC 


#$C2 


, CE42 


08 




PHP 




,CE43 


C3 




r > r > r > 




, CE44 


41 


C3 


E0R 


($C3,X) 


,CE46 


61 


C3 


ADC 


($C3,X) 


, CE48 


64 




??? 




, CE49 


C3 




??? 




, CE4A 


9F 




?? /? 




,CE4B 


C3 




999 




, CE4C 


D7 




999 




, CE4D 


C3 




?? ? 




,CE4E 


FB 




999 




,CE4F 


C3 




909 




,CE50 


OF 




999 




,CE51 


C4 


49 


CPY 


$49 


,CE53 


C5 


00 


CMP 


$00 



Listado de bytes 

(no es programa) 

,CE8C 99 25 43 STA $4325, Y 

,CE83 B0 97 BCS $CE1 C 

,CE85 52 ??? 

,CE86 97 ??? 

,CE87 53 ??? 

,CE88 4D 89 50 E0R $5089 

,CE8B 97 ??? 

,CE8C 9C ??? 

,CE8D 27 ??? 

,CE8E 50 C2 BVC $CE52 

y CE90 4 D 87 92 E0R $9287 

,CE93 27 ??? 

INPUT 27 



Aplicaciones 




, CE94 


53 




"7 "7 




, CE95 


91 


53 


STA 


(So3) ,Y 


, CE97 


8B 








, CE98 


53 




??? 




, CE99 


9C 




??? 




,CE9A 


53 




999 




,CE9B 


A2 


55 


LDX 


#$55 


, CE9D 


50 


A5 


BVC 


SCE44 


,CE9F 


30 


A5 


BMI 


$CE46 


,CEA1 


31 


4B 


AMD 


($4B) ,Y 


, CEA3 


9C 




??? 




,CEA4 


96 


50 


SIX 


$30,Y 


, CEAo 


96 


51 


O T" V 

SIX 


$.51 ,1 


,CEA8 


A4 


50 


LDY 


$50 


, CEAA 


9E 




??? 




,CEAB 


30 


9E 


BMI 


$CE4B 


, CE AD 


31 


C6 


AND 


($C6),Y 


,CEAF 


30 


C6 


BP! I 


$CE77 



,CEB1 31 91 
,CEB3 30 91 
,CEB5 31 47 
,CEB7 89 
,CEB8 42 
,CEB9 A2 4D 
, CEBB B8 
,CEBC 92 
, CEBD A1 A1 
, CEBF A2 4C 
,CEC1 8C AD 94 
,CEC4 43 
,CEC5 C7 
,CEC6 4E A2 45 



AND ($91), Y 
BMI $CE46 
AND ($47),Y 

9 99 
??? 

LDX #$4D 

CLV 

??? 

LDA ($A1,X) 
LDX #$4C 
STY $944D 

99? 
9 99 

LSR $45 A2 



,CEC9 27 
,CECA 48 
,CECB 27 
,CECC B9 54 
LDA $BE54,Y 
,CECF 54 
,CED0 91 A4 
STA ($A4),Y 



BE 



&l.iSCO 1 U MOM)./! •:. 



UN C X GL-QMOTOR VESP I MU 

™" i\| x ('j is] ci *"' p ir';: r im a Im d "z " d e l_ ra a d o alcau*! del menares < m«dr id> - 

UNA CftDENA HI.Fl: DE__ 2!"S™X2S^.»£™2 
,7 i JAN 1 npF jc £!>AL„A , ALICANTE. 

EM T I TO DE : " ANDRE6 DE I — A VIS OA, MADRID. 
*. ,7. LORENZO LABO SOLBNA » R ,. OSS CAI-IARSO (CAIMTAUFU. A) . 

u im t... p d e a i» i n is t e c a l i ra a r _x 

" ""' k J" i^l T T ft H II '"" i': A M F' A Y O CUES I A, eADALUNA IBARCELOMA) .. 
■h PF fiTO VILAHMAU ESPIMAL. ( BARCEL.CIMA ) .. 

•••• L U1E3 WU9BRTO CARRION MORENO , VAU.ADOL X 13 . 
MANUPI "crtS'T ILLLJOS VAVA , NADR ID. 

•M- 1-1 a n u e: i- a u a m s u m a r t x n e z , s i lba o .. 

Fi:'l)HO BARAMONA CORDLKO ., CDSL.ADA CIIADfCtD) . 
,. i-iVrair-l BLIME RODRIHUI../- BfiRCELONA . 

n ,7 I •)!■■! r: I -U I HIERNAWUi: Z 13ARIEA , UANTURCE (VIZCAYA). 

H JOSF I UIS MARTINEZ MUNOZ , STA. COLOMA 13 B BRAMANB I (UARObLONAl . 
OONZALG NOVOA BOTELO » ORENSE. 

UN LOTH DE SOFTWARE DB ERBE 

i r iFslS§Pu S l£ESM ; ^A"*ili?Ils t "STS? ^u?5K Y g4" cjramanet .Barcelona. 

•m- ^ I c T O R i N O B 13 RIB U E Z V A l_ D E O CJ £3 O « 1..- E: O N . 

J. MANUEL FERE C RA GARCIA, PARLLL.OMA. 

•M- MA., AN0U8TIAS DBILBADO . ORANADA. 

*• MANUEL. TERRGR MENA , CARTAQENA (MUROIA. . 

•» M I O l.J E I... 3 A l_ A £> ta A R C J. A , M A 13 R X 13 . 

•H. J .. 1 : AEI. OE3 DE LA LLANA SANTO , REUS < TARRABONA > .. 

4» SERSIO MARTINEZ COLLDET- ORN , BARCHI UNA. 

« ROBI5.R TCJ TURRI JOB SANTOS , TALAVERA < TOLBDU > . 

T R E S3 P R O 03 R A M A S3 13 E CD U M R U L... C) O X (3 A L 

H* F E R N A N 13 O "" O O N Z A L- E z"rSS R I SUEZ , I— A OROTAW A . < TEN « RIFE) - 

* a ,. ANTON X Q POZO SALLETERO, OMIVA (UALENCIAI . 
A- MANUEL YANEZ VALEIRO, BILBAO> 

•M- JDRDI MARZU VI DAL , BARCLLOMA. . 

4* JOAN CARRA8CO DOMtNQUEZ, TERRA8A (BARCELONA) - 
*• ANShiLMCJ FERMANDEJ BBRQDAB . MAL.AQA. 
franc: :r t;r;o mac i a lacusa, Barcelona. 

ANDRE!:.! ORTIZ MENPEZ , MARTOREL PARCELONA) . 
-N- EBTEBAN HC)RI.:AJQ ARROYO, £3-3. I3E LU'J REYEfo (MADRID. . 
JAVIE R SUBIRATB CERVE R A , REUS < T A R R A I.-) O N A * - 

TREE PROBRAMAB DE PROEIN6A 

^ ^ S !^ io> x" R*t "j ^ illi: es ™~ e; ^ >i : • ; i' l':': i ^ ^-^ S T' terrasa ( e< arcelona > . 

•M DAV T. D I-3RAVO CALVO, BARCELONA. 

•w- ANTONIO BRIMAL1 ANDREU . I1ANACOR < MAI — I — OR OA ) . 

RUBEiN DOMINQUEZ LOPEZ , AQUADUl-E (ALMER1A. . 

M- SALVADOR DE LA FUENTE FERNANDEZ , VALENCIA. 

•* ALFONSO MANTECON LAOE, LAS ,RP??S (MAIJH ID) . , , „,s C -.,-. e -, n#i±> 

H- M I O U E L L A T O R R E R O V I R DBA, VIL A f - R A N O A D E L f- E N E D E &> < fc< A R .... hr. L O N A > .. 

•H- M- ANSEL FLORES AO UNA, I — A QpRUNfc 

*• I- .. C A R LOB (3 A I TAN A L F A RO, CO R D U D A „ 

* Jt . MIGUEL TORES CARP, CADIZ- 

T R E S3 F» R O 3 R A M A £3 D E M I C3 R OU N O 

'Z °" M A N U E L "*" F 1" IM E it R 3 ' ° 13 E S ADA- R ORRIND (PDMTEV 1™. 13 H A) .. 

* A - JOSE PALACIOS SOLER , VALENCIA- 

■H- SEBAS TJ.AN MONZON REREZ , S-iEV I LL. A . , 

«• .3. CARLOS CAPAFONS CUBERO - SITB6S (BARLELUNA . . 

•M' .JAVIER HINOJOBA RUIZ. CAbFeLLAR DEL.. VALEEfci < BAKULl-UNA , . 

•M- ALFREDO CAN TEL I SUAREZ , OV I EDO (ABTURIA8) . 

-M- R. Al **l:- R'f O BARGALLO CASCAN , DARLELUNA .. 

n !-i!ANT I AI-IO FERRE I RO FAR A MO 7 l-A CORONA. 

** AN T CJ NIO G) A L A N E L K Z , M A 13 R I 13 . 

•M- .3E3US3 VALERO AL.OAR AZ MADRID. 

CUATRQ PROBRAMAB DE SERMA 

■f ' ANTON I O SOME Z ABUILAR , MALABA. 

«» PAQLJI RDDRI8UEZ OO N Z AI....E Z , BADAJOZ » 

EERNANDO R O.J A S3 PALAOIOS, ALBECIRAS < CADIZ > . 

*• RAFAEL ASENJO PLAZA, MARACENA (QRANABA)'. 

■H- a . MANUEL.. F'ARRA BA'RBERO , L-A ME RR A DURA (ORANADA) .. 

H PABLO MEF<RERA FEREZ BRUESO , MORA < TOLEDO > . 

k T RDF- I I (7 DEL RINCON BONZALEZ , PUIB DEN VALtl (1BI.ZA.) j 

* JOSE LUIS BONZALEZ OLE A , FU|InI.ABR/WA (MADRID.. 

«■ JAIME SiSOLA FLOX , VILANOVA I LA BELTRUB (BARCELONA). 

M- AL..VARO D ARENA UROOL..A, ZARAOOZA. 

UN KIT ROBOT ICO D E FERRE-MORST 

^M- ™" J O S2! E °" ~ U L I O "™ V E L A Z O U E Z , L E .3 O N A (VIZ C A V A ) . 

UN JOYSTICK DE COMPULOSICAL 

""' Pi 'l (3 LJ E L "mI L L A N ""' D E '" L A ™" T O R R E , £3- JUAN DESPI (BARCELONA) .. 
» V X OEN-I E MORAL-ED A HIDALBO, SEVILLA. 

■H' RAMON JUNOUERA BDBRON , BALDAKANO (VIZCAYA)., 
Ll N .3 O V US T I C l< 13 E l-l I C R O U N CJ 

'"' "7 o S i:l '" o T ' r.' o d r :i. o u c ' y. e: c: o e> a r , ma dr x i) .. 

■K- BENITO BANTAMARIA ROMERO , MADRID. 

* JQSE AIM TON I O OOMZALEZ CUETO » 031 a ON ( A S3 I UK 1 Afc> > . 
DAN I EL. ROSS ESI'RAGUriZ , £•:< A RUEI...ON A - 

•» ANTONIO DIAZ BONZALEZ , SANTANDER. 

*>■ EDUAROO TORRECIL.LAS VALVERDE , L-.< A 13 ALL) IMA ( fc»ARLELONA) - 

-H l-tDRO LANE I L..I....A TELL. A , ZARAOQZA. 

«• V.. ANTONIO UOEDA ALVAREZ. OETAFE (MADRID') - 

4» a. MANUEL- VIBO CDU8INCI, VIQO t POIMTEVEDRA > . 

-n MARIANO I..I3FLZ L-OFEZ , OOI...MEMAR VIE JQ (MADRID) . 

» JAVIER CORONA DE L T-.i AD I 7 , I ■ A l-l I' ' I... ON A - 

FCO .. .JAVIER DIAZ I3ARZON » BARCELONA. 

*■ a. MANUEL TRIAB COMPANY', SOLLER (MALL.ORCA) .. 

*» R ABLO VAQLIERO SEPULVC!) A » A VII... A .. 

-H- J EES U £3 O C A N A 03 O M E Z v M A D F< ID. 

UN C R O N O M EE T R O D E M I CJ R O L.I N O 

*>'• JUAN FEN A SANCHEZ , I £31-.. A OR I ©TINA (HUEL-VA) . 
«■ ANIjE.L. OC7I-UEZ L . O I" • I'. ' Z . EUQCI. 
■m- I EN AC I O TIE R N O MA^RTINEZ „ Bf 
N- l-l A .. LUIS A a A N Z A O U A D O , L L A s 

J.. LUIS 13 LA S3 CO CABAL. • MADRID. 

UN L X IS) R O D E A N A V A M U L T I M E D I A 

<*' ANTONIO C'ABEZA HERNANDEZ , TALAVERA (TOLEDO) . 

«» JAVIER MARTINEZ CDRME'NIEZANA , BILBAO. 

*• MIGUEL SERRANO DEL MAZ.O v CACERES. 

•M- ECKAR I' SCHILDER, DREXO < LA CORUNA ) .. 

<♦ BANTIAOa DIAZ PEREZ . PORTUOALETE (VI ZCAVA) . . _ . 

-H- RIOARDO BEHPERE PALAU , QUART DE Pr.lBL.IK 1 ( VAL.bNLJ. A / . 

•K- FRANC 3. iiiCO I I NED RAMIREZ MATARCI (BARCEL.OMA) . 

MIBUEL ANSEL FERNANDEZ , MADRID. 
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SIMULADOR 
DE VUELO 



LA SIMULACION DE VUELO 



PRO GRAMAS DE ENTRENAMIENTO 



VUELO MEDIANTE INSTRUMENTS 



EL MOVIMIENTO DEL AVION 



PERDIDA DE VELOCIDAD 



Este programa de simulation de 
vuelo es similar a los que se emplean 
en las escuelas de vuelo para ensenar a 
los pilotos como tienen que volar utili- 
zando unicamente sus instrumentos; en 
la primera parte se reproduce la cabi- 
na 

Los programas de juegos varian 
desde una fantasia desbordante que 
supone la entrada a mundos imagina- 
rios y la participation en aventuras, 
hasta la simulation de situaciones de 
la vida real. Esto te permite poner a 



prueba tu capacidad en situaciones po- 
tencialmente peligrosas, sin tener que 
hacerte dano o perder totalmente mi- 
llones de pesetas en costosos equipos. 

Los programas de simulation de 
vuelo contienen un elemento de fan- 
tasia: tu solo en la cabina, con toda la 
tripulacion aquejada de una misterio- 
sa enfermedad, con una sola mano 
consigues hacer que el avion tome tie- 
rra felizmentc. Pero los sofisticados 
programas de este tipo tienen un uso 
practico real, hasta el punto de que 
casi todas las principals compamas de 



Imeas aereas y escuelas de vuelo los 
utilizan con regularidad. 




En el extremo superior de la escala 
esta la simulation total, la llamada 
«Fase 3» en la terminologia de las ad- 
ministraciones de aviation civil, que te 
permite experimentar las mismas sen- 
saciones que un piloto en un avion de 
verdad. Tu ves lo mismo que el ve a 




:- --Tis .... la carlinga 
jeria diferencia 
: - . - - / de vista para la 
co ) : sentiras lo mis- 
:-:e ?n los despegues y en 
-■_ ; asi como las turbulen- 
ce mismo que el oye, inclu- 
indlcaciones del control de 
. --re En teoria un piloto pue- 
iz . . • todo su entrenamicnto 
ea uno de estos simuladores y obtener 
: sncia sin tener que abandonar el 
suelo para nada. 



En el extremo opuesto de la escala 
estan los programas de simulation de 
vuelo muy parecidos al que veremos a 
continuation. 

Las unidades de sobremcsa se pue- 
den «volar» en el interior de un aula, 
y resultan utiles para la ensenanza de 
los procedimientos de cabina y para 
desarrollar la rapidez de reflejos de los 
pilotos. 

Resultan ademas esenciales para la 
ensenanza del vuelo por instrumentos, 
una tecnica que permite al piloto na- 
vegar apoyandose unicamente en el 
panel de instrumentos, algo que todo 
piloto ha de hacer cuando las condi- 
cfones metcorologicas son malas. 



LO QUE HACE EL 
F - >GR.. i ' ■ 



Este artfeulo consta de tres partes y 
en el se presenta un programa de si- 
mulation de vuelo en el que se supo- 
ne que te has hecho cargo del control 
del avion cuando este se encuentra a 
2000 metros de altura y a 20000 me- 
tres de distancia de la pista de aterri- 
zaje que constituye el objetivo. Por la 
ventanilla de la cabina es muy poco lo 
que puedes ver, solamente el horizon- 
te, cuando hay visibilidad, y un punto 
distante que es la pista de aterrizaje, 
por lo cual como piloto sensato que 
eres, tendras que confiar en tu expe- 
riencia y atendiendo a lo que te indi- 
que el panel de instrumentos ponerte 
a salvo en tierra a ti y a tus pasajeros. 



LOS INSTRUMENTOS 



En el panel de instrumentos hay 
cuatro diales. El primero te informa 
de la vclocidad del aire. Este valor 
cambia segun que estes picando (tu 
velocidad aumenta), elevandote (tu 
velocidad disminuye) o modificando la 
potencia de los mo tores. Un contador 
que hay debajo del dial de la veloci- 
dad del aire te indica la marcacion de 
tu brujula. 

El segundo dial te muestra donde 
csta el horizonte en relation con el ae- 
roplano. Esto significa que aunque el 
horizonte no resulte visible a traves de 
la ventanilla de la carlinga, todavfa si- 
gues sabiendo donde esta. El contador 
que hay debajo de este dial te indica 
la marcacion de la pista de aterrizaje. 

El tercer dial te proporciona una 
lectura de la altitud. Tiene dos mane- 
cillas, una para los miles y otra para 
los cientos. El contador que hay deba- 
jo calcula la deriva del avion; como la 
pista de aterrizaje tiene una anchura 
de 100 metros una deriva de +50 o 
—50 hara que la pierdas. 

El ultimo dial te indica la velocidad 
del motor en revoluciones por minu- 
to. El contador que hay debajo te per- 
mite conocer la distancia a la que te 
encuentras del centra de la pista. 



ATERRIZAJE 



Aunque hay programas de simula- 
dores de vuelo en los que la imagen 
que se ve a traves de la ventanilla de 
la cabina se va haciendo mas mtida a 
medida que progresa la aproximacion , 
no es este nuestro caso. Por ello de- 
bes centrar la imagen radar de la pista 
de aterrizaje. 

En el momento en que asumes el 
control, las condiciones meteorologi- 
cas son buenas y la pista se encuentra 
en la direccion norte. El aterrizaje en 
cstas condiciones no cs dificil y el jue- 
go perdena en seguida su atractivo si 
no se pudieran modificar estas condi- 
ciones. Para anadir mas dificultad, 
puedes especificar la velocidad y la di- 
reccion del viento: por ejcmplo un fu- 



rioso vendaval que soplc de lado te 
pondra las cosas mucho mas dificiles. 



MOVIENDO EL AVION 



El margen de los controles d< 
dispones se aproxima bastante 




controles de un avion de vcrdad, aun- 
que estes pulsando teclas en vez de 
utilizar un joystick. 

En una aeronave real, el control de 
la elevation — los movimientos hacia 
arriba y hacia abajo — se ejerce mo- 
vicndo el joystick hacia atras o adclan- 
te, lo que hace que sc muevan los ele- 



vadores del piano de cola hacia arriba 
o abajo. Tu vas a utilizar dos teclas 
para conseguir este mismo efecto; en 
la tercera section de este artfculo tc- 
clcaras la parte de programa que se 
ocupa de csto. 

El balance del aeroplano — el mo- 
vimiento lateral — se controla movien- 



do el joystick de un lado a otro. Esto 
hace que se muevan los alerones, que 
son las superficies de control que hay 
en las alas. Tambien en este caso uti- 
lizaras dos teclas para hacer que se 
muevan hacia la derecha o hacia la iz- 
quierda. 

Tus dos ultimos controles te permi- 



ten acelerar o retardar la velocidad 
del motor, lo cual resulta esencial 
para controlar los tiempos en la ma- 
niobra de aterrizaje y para asegurarte 
de que no entraras en perdida de velo- 
cidad. 



PERDIDA 
DE VELOCIDAD 

Cuando la velocidad dc tin avion 
cae por debajo de un determinado va- 
lor, se dice que entra en perdida de ve- 
locidad y en ese momento el avion em- 
pieza a caer como si fuera una piedra. 
En este programa, cuando la veloci- 
dad de tu avion cae por debajo de los 
30 metros por segundo, el aeroplano 
caera en picado abruptamente. Si te- 
nfas bastante altura en el momento en 
que esto ocurre, una action rapida te 
puede salvar, pero una entrada en per- 
dida es algo que aterroriza a cualquier 
piloto. 



DEL PROGRAMA 



bl programa es demasiado largo y 
complejo como para darlo todo de una 
sola vez, por lo que lo nemos dividido 
en tres partes. 

Lo que se hace en esta primera par- 
te es configurar la pantalla para mos- 
trar el interior de la cabina, con su 
ventanilla, los cuatro diales debida- 
mente etiquetados y los letreros de los 
contadores. 

Los comandos que intervienen se- 
ran familiares para la mayona de vo- 
sotros por haberlos visto ya en otros 
programas. 

La parte de programa introducida 
en la parte dos, hace posible que los 
diales y contadores sean sensibles al 
movimiento del avion y hay un coman- 
do temporal que hace que este vuele 
aleatoriamente sin que haya un piloto 
que actue sobre los controles, para 
que puedas ver funcionando el panel 
de instrumentos. La seccion final te 
permite tomar el control del avion y 
realizar una estimation de tu tecnica 
de aterrizaje para que puedas juzgar 
tus progresos. 



DIBUJANDO LA CABINA 



Teclea en tu ordenador el siguiente 
programa para tener dibujada la cabi- 
na 

Para poder acceder a los graficos de 
alta resolution del Commodore 64, he- 
mos escrito este programa con el Si- 
mon's BASIC. Esto significa que no 
puedes hacerlo correr en un Commo- 
dore normal sin conectar el cartucho. 
No obstante, los que no tengais este 
cartucho no os desespereis. Pronto ve- 
remos en INPUT un programa en co- 
digo maquina que os permitira ejecu- 
tar estos programas. La unica peque- 
na modification que tendras que ha- 
cer es poner una @ delante de cada 
comando de graficos. 



■twyiB para Commodore-64 

1 REF!**ES NECESARIO EL 
CARTUCHO SIMON'S BASIC 

2 REf y i**[Pi:=TECLASCSHIFT+ 

5100 A$='*VEL.AIRE H0RI2. 

ALTITUDCj 11 L1RPW 
5110 B$=^"CABECE0 PISTA 

DERIVA DISTANCIA" 
5120 HIRES 0,1:Fil!LTI 4,0,5: 

COLOUR 0,1 
5130 BLOCK 0,110,160,200,2 
5140 TEXT 0,120,A$,3,1,5: 

TEXT 0,175, B$,1, 1,5 
5150 LINE 0,171,160,171,0: 

LINE 0,200,160,200,0 
5160 FOR Z=G TO 3: CIRCLE 20+ 

Z*4Q,150, 15,15,0 
5170 IF Z=1 THEN TEXT 57,146, 

•TC0M|v].+Rl ",0,1 ,1 : 

NEXT Z 

5180 FOR K=0 TO 9:PL0T(20+Z* 
40)+17*SIN(K*CPI]/5), 
150-19*C0S(K*[PIJ75),0: - 
NEXT K,Z 

5190 GOTO 5190 

A$ y B$ definidos en las lmeas 5100 
y 5110 conticnen las etiquetas de los 
diales y los contadores. La llnea 130 
dibuja un bloque negro debajo de la 
ventanilla de la cabina, para que con- 
traste el interior oscuro del avion con 
el azul claro de la ventanilla. La lfnea 



5140 situa los letreros y la lmea 5150 
dibuja dos lmeas para sugerir que los 
contadores etiquetados estan dispues- 
tos en un panel separado de los dia- 
les. La lfnea 5160 dibuja los cfrculos 
de los diales (realmente son algo elfp- 
ticos, debido a la forma de trabajar de 
la pantalla grafica) y el diagrama del 
avion en el dial del horizontc. 

La lfnea 5180 dibuja los indicadores 
que rodean a los otros tres diales. 

Hasta aquf, este programa te mos- 
trara una consola de vuelo simulada. 
En la proxima parte podras teclear la 
seccion de programa que hara posible 
que tu avion vuele. 




100 INPUT Juegos 



DESPEGA PARA TU 
PRIMER VUELO 



VUELO CON EL PILOTO AUTOMATICO 
APROXIMACION A LA PISTA DE 
ATERRIZAJE 



DIBUJANDO LA TRAYECTORIA 
EL PANEL DE INSTRUMENTOS 



En la segunda parte del simula- 
dor de vuelo, puedes arrancar los mo- 
tores y obsevar como adquiere vida tu 
panel de instrumentos. Pero ten cuida- 
do: ;EI piloto automatic© se ha vuelto 
loco! 

En la primera parte has tecleado las 
lmeas que reprodudan sobre la panta- 



Ua el interior de la cabina de vuelo. 

En esta parte veras adquirir movi- 
miento a tu avion y como adquiere 
vida el panel de instrumentos; de 
modo que, aunque todavia no has to- 
rnado los mandos, puedes ver como 
responde el panel de instrumentos del 
avion ante los movimientos del mis- 
mo. 



EL AVION VUELA 




Esta es la parte mas larga del pro- 
grama, con bastante diferencia. Hay 
una larga serie de variables interde- 
pendientes que tienen que ser cons- 
tantemente actualizadas para contro- 
lar el avance del avion. Ademas hay 
que volvcr a dibujar constantemente 
el panel de instrumentos a medida que 
van cambiando la posicion y la altura 
del avion, ya que los diales tienen que 
ir describiendo el movimiento. 



LA APROXIMACION A LA PISTA 

Hay una imagen radar de la pista de 
aterrizaje que te muestra el angulo 
con el que te estas aproximando. 

DIBUJO DE LA TRAYECTORIA 

Para poder dibujar con precision la 
posicion del avion, hay que tener en 
cuenta muchos factores. Por ejemplo, 
la direccion en la que estas volando, 
se ve afectada por la direccion del 
viento y por el balance del avion. La 
velocidad de avance depende parcial- 
mente de la velocidad del viento. La 
altura que vas perdiendo, o ganando, 
esta relacionada con la velocidad de 
vuelo, etc. 

Para poder actualizar los diales y los 
contadores, hay que hacer una estima- 
tion de las variables que van cambian- 
do, con arreglo a la forma en que afec- 
tan a las lecturas, despues de lo cual 
se puede hacer de nuevo el dibujo. 

para Commodore-64 

10 GOTO 5000 

500 RA=AD*C: VX=AS*SIN (RA) 
510 VY= AS*C0S (RA) : RETURN 
1000 PZ=PZ+GZ:PY=PY+GY:PX=PX 
+GX 



Juegos INPUT 101 



1010 PT=PT+NC:RL=RL+BC 
1020 AS=AS+16*(TC*30~AS-8*PT 
)/AS 

1030 IF SL=1 THEN TEXT 60,50 
"PERDIDA",0,3,8:SL=0: 
GOTO 1050 

1040 IF AS<30 THEN GOSUB 
1500 

1050 AD=AD+RL:IF AD<0 THEN 

AD=AD+360 
1060 IF AD>359 THEN AD=AD- 

360 

1070 VZ=AS*SIN(PT*C)-1Q+AS 
/15 

1080 GZ=VZ:GY=VY+WY: 
GX=VX+WX 

1090 IF VY=C THEN GD=-[PI]/2 

:GOTO 1110 
1100 6D=-ATN(VX/VY)/C 
1110 GOSUB 500 
1120 RETURN 
1500 Si~1 :TEXT 60,50, 

"PERDIDA", 1,3,8 
1510 RL=INT(RND(1)*21)-9:PT= 

21-INT(RND(1)*5) 
1520 RETURN 

2000 LINE 20,150,20+13*SIN 
(AS*EPI3/200) , 
150-13* 

COS(AS*CPI3/200) 

A 

2010 TN=PZ/1000:UM=sPZ-1000* 
INT(TN) 

2020 LINE 100,150,100+6*SIN 

(TN*CPII]/5),150-6*COS 

(TN*CPi:/5),4 
2C30 LINE 100,150,100+13*SIN 

(UN*EPl3/500) , 

150-13* 

coscun*i:pid/500) 

,4 

2040 LINE 140,150, 140+13*SIN 

(TC*CPID/5),150-13*C0S 

(TC*CPi:/5),4 
2050 TEXT 0,190,STR$(ABS(INT 

CAD))),4,1,7:RETURN 
2060 IF PY=0 THEN RB=0 
2065 IF PYOC THEN RB=ATN(PX 

/PY)/C:IF PY>0 THEN RB= 

RB+180 

2070 IF RB<0 THEN RB=RB+360 

2075 GOSUB 7000 

2080 TEXT 35,190,STRS(INT(RB 
)),1,1,7:TEXT 70,190, 
STR$(ABS(INT(PX))),1,1 , 
7 

1 02 INPUT Juegos 



2090 TEXT 110,190,STR$(INT( 
SQR(PY*PY+PX*PX))),1,1, 
7 

, 2095 S1=INT(RB) :S2=ABS(INT 

(PX)) 
2096 S3=INT(SQR 

(PY*PY+PX*PX)) 
2098 IF KJ=1 THEN LINE X1 , 

Y1,X2,Y2,4 
2100 KJ=0: YC=150+(PT/3) :X1= 

50:X2=70:Y1=YC+17*TANC 

RL*2*C) :Y2=YC-17*TAN(RL 

*2*C) 

2110 IF(YC<137 OR YC>163) 
AND RL=0 THEN 2320 

2120 IF YK137 THEN X1=60-( 
60-X1)*(140-YO/ 
(Y1-YC):Y1=140::G0T0 
2140 

2130 IF Y1>163 THEN Xl=60-( 
60-X1)*(160-YC)/(Y1-YC) 
5 Y1*1.6Q 

2140 IF Y2<137 THEN X2=60-( 
60-X2)*(140-YC)/ 
(Y2-YC) :Y2=140:G0T0 
2160 

2150 IF Y2>163 THEN X2=60-( 
60-X2)*(160-YC)/ ( Y2-YC) 
• Y24160 

2160 IF XK50 OR X2>70 THEN 
2190 

2170 LINE X1,Y1,X2,Y2, 
4:KJ=1 

2190 IF RL=RR AND PP=PT THEN 
2290 

2200 IF HF=1 THEN LINE X3, 

Y3,X4,Y4,0 
2210 HF=0:YC=33+PT*4:X3=0: 

X4=1 59 : Y3=YC+59*TAN ( RL* 

2*C):Y4=YC-59*TAN(RL* 

2*C) 

2220 IFCYC<0 OR YO109) AND 

RL=0 THEN 2290 
2230 IF Y3<0 THEN X3=80-(80- 

X3)*(-YC)/(Y3-YC> :Y3=C: 

GOTO 2250 

2240 IF Y3>109 THEN X3=80-( 
80-X3)*(109-YC)/(Y3-YC) 
■ X34109 

2250 IF Y4<0 THEN X4=80-(80- 
X4)*(-YC)/(Y4-YC) :Y4=C: 
GOTO 2270 

2260 IF Y4>109 THEN X4=80-( 

80-X4)*(109-YC)/(Y4-YC) 
:Y4=109 



2270 IF X3<0 OR X4>159 THEN 
2290 

2280 HF=1 :LINEr X3,Y3,X4,Y4, 

3 

2290 WB=AD:IF AD>180 THEN WB 

=WB-360 
2300 IF RB>180 THEN WB=WB+ 

360-RB:G0T0 2310 
2305 WB=WB-RB 
2310 IF ABS(WB)>60 AND ABS 

(PY)>1000 THEN 2350 




2320 AN=59/C60*SQR((X3-X4)* 
( X3-X4) + ( Y3- Y4) * ( Y3- 
Y4))) 

2325 X5=(X3+X4)/2+SGN(X3-X4) 

+WB*AN*(X3+X4) 
2330 Y5=(Y3+Y4)/2+2+WB*AN*( 

Y3-Y4) 

2335 IF X5<0 OR X5>159 OR Y5 
<0 OR Y5>109 THEN 2350 

2340 IF ABSCPYX1000 THEN R= 
8-Y5/10:G0T0 2350 



2345 R=4000/ABS(PY) :IF R*1C+ 

Y5>80 THEN R=8- 

Y5/10 
2350 GOSUB 8C00 
2370 RR~RL:PP=RT: RETURN 
5000 PRINT"CSHIFT+CLR/HOMED 

CCTRL+4: m :K'RM: COLOUR 6, 

6;PP=-1 :RR=-1 

5010 C=CPi:/18C:PY=-20000:PZ 

-2000:AS=150 
5020 PRINT" ESCRIBE LA VELO 



5050 PRINT AT(0,20) ,: VEL. 

VIENTO =";3*XG;'Ti/S": 

PRINT" DIRECCION =";X1; 

"GRADOS" 
5060 WY=-X0*C0S(X1*C) 
5070 WX=-X0*SIN(X1*C) 
5080 GZ=VZ:GY=VY+WY:GX= 

VX+WX 

5090 TC=5:RT=3:TP=5:WR=50: 

PAUSE 2 
5190 REM 




5025 



030 



50^-0 



CIDAD DEL VIENTC ( [CTRL 
+611-50ECTRL+4D) K/S" 
PR INT" Y LA DIRECCICN 
CCCTRL+630-359ECTRL+43) 
GRADOS CCRSR abajoU": 
FLASH 5,10 

INPUT XQ,X1:IF X0>50 OR 
X0<1 OR XKO OR X1>359 
THEN 5000 

X0=X0/3:0FF:P0KE 650, 
128 



5500 GOSUB 2000:IF INTCRNDC1 
)*10)=1 THEN RL=RL+SGN 
(TL)*INTCRND(1)*4)-1 

5510 IF INT(RND(1)*1C)=1 

THEN PT=PT+3-INT(RND(1) 
*4+1 )*2 

5520 GOSUB 1C00:JF PZ<=0 
THEN 5540 



5530 



5540 



GOSUB 

GOTO 

GOTO 



000: GOSUB 2060: 



5540 



7000 TEXT 35,190,STR$(S1),2, 
1,7 .-TEXT 70,19G,STR$ 
(S2) ,2,1,7 

7010 TEXT 110,190, STR$(S3), 
2,1,7:RETURN 

8000 IF WQ=1 THEN LINE 78,0, 
OX,OY,0 

801 C WG=1 :0X=78-(16*SIN(RB* 
(PI/180))) :0Y=(16*ABS( 
C0S(RG*(CPI3/180)))) 

8020 LINE 78,0,0X,0Y,2 

8025 WB=AD:IF AD>180 THEN WB 
= WB-36G 

8026 IF RB>180 THEN WB=WB+ 
360- RB: GOTO 8040 

8030 WB=WB-RB 
8040 IF RW=1 THEN PLOT G1 , 
G2,0 

8050 RW=0:IF ABS(WB)>57 THEN 
RETURN 

8060 RX=X3+INT( C(X4-X3)/2) 

-SIN(WB*(CPII!/180) )*(X4 

-X3)*.6) 
8070 RY=Y3+((Y4-Y3)*((RX-X3) 

/<X4-X3))+2) 
8080 IF RY<0 OR RY>109 OR RX 

<0 OR RX>159 THEN 

RETURN 

8090 RW=1:PL0T RX,RY,2 :G1 =RX 

:G2=RY 
8100 RETURN 

En cuanto teclees RUN, el progra- 
ma salta a la lfnea 5000. Las Ifneas 
5000 y 5010 inicializan un grupo de va- 
riables que controlan la position del 
avion en el aire. Inicialmente el avion 
esta situado a 20000 metros de la pis- 
ta de aterrizaje y a 2000 metros del 
suelo. 

Las lmeas 5020 a 5030 permiten al 
piloto elegir la intensidad y direccion 
del vi en to y comprueban que las en- 
tradas suministradas estan dentro de 
los margenes permitidos. Estos valo- 
res se imprimen en la lfnea 5050, an- 
tes de que las lmeas 5060 y 5070 cal- 
culen las componentes de la velocidad 
del viento en la direccion de la mar- 
cha y en la direccion transversal a la 
misma. A continuation se utilizan WX 
y WY en la lfnea 5080 para ajustar la 
position del avion. 

La lfnea 5090 asigna los valores del 
cuentarrevoluciones (TC), los lfmites 
del balance (RT) y cabezada (TP) v la 
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anchura de la pista de aterrizaje 
(WR). 

La Ifnea 5500 llama a la subrutina 
que comienza en la Ifnea 2000 y ter- 
mina en la 2050. Esta subrutina actua- 
Iiza los dudes. Las lmeas 2000, 2020, 
2030 y 2040 dibujan las agujas con 
arreglo a la posicion y velocidad. 

Despues del retorno a la Ifnea 5500, 
el resto de la misma y toda la Ifnea 
5510 actuan supliendo a la rutina de 
control que anadiras en la proxima 
parte de este artfculo. 



dad y asigna un valor aleatorio al ba- 
lance y la cabezada para simular la 
perdida de control del aeroplano. La 
llnea 1110 llama a la subrutina de la If- 
nea 500. Las lmeas 500 y 510 calculan 
la velocidad de ascenso o descenso y 
la velocidad transversal. 

Al volver el programa desde la If- 
nea 1120 a la lmea 5520, comprueba 
si el avion ha tocado el suelo, saltan - 
do a la lmea 5540 caso de que asf sea. 
La lmea 5540 es una detention tempo- 
ral. 



y S3; valores que se utilizan en las If- 
neas 7000 y 7010. 

El horizonte artificial se dibuja por 
medio de la sentencia LINE que figu- 
ra en la lmea 2098; la correspondiente 
sentencia de borrado esta en la lmea 
2170, donde KJ es simplemente un in- 
dicador para que el ordenador sepa 
cuando tiene que dibujar un nuevo ho- 
rizonte artificial. Las lmeas 2100 a 
2160 actualizan las variables de con- 
trol. Las lfneas 2200 a 2280 se ocupan 
del horizonte real. 




La lmea 5520 llama a la subrutina 
que empieza en la lmea 1000. Esta su- 
brutina actualiza todas las variables 
durante el vuelo del avion. Las lmeas 
1030 y 1040 comprueban si ha habido 
perdida de velocidad, lo que ocurrira 
si has permitido que la velocidad de tu 
avion caiga por debajo de los 30 me- 
tros por segundo. Caso de que ocurra 
asf, el programa salta a la subrutina de 
la Ifnea 1500, que presenta en panta- 
11a el mensaje de la perdida de veloci- 
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La lmea 5530 llama a la subrutina 
que comienza en la lmea 2000, que ac- 
tualiza los diales. Seguidamente se lla- 
ma a la subrutina de la Ifnea 2060. Las 
lfneas 2060 a 2070 actualizan la demo- 
ra de la pista de aterrizaje antes de 
que se supriman las tres ultimas pre- 
sentaciones num ericas que figuran por 
action de las lfneas 2000 y siguientes. 
Las nuevas lecturas se presentan en las 
lfneas 2080 y 2090. En las 2095 y 2096 
se calculan nuevos valores para SI, S2 



En las lfneas 2290 a 2370 se calcula 
la nueva posicion de la pista de aterri- 
zaje, utilizando la subrutina de las lf- 
neas 8000 a 8100 para dibujar la posi- 
cion adecuada. 

Una vez que el horizonte ha sido di- 
bujado de nuevo, la presentation se 
actualiza completamente y la Ifnea 
5530 envfa el programa a la 5500. Ob- 
serva que el bucle principal del pro- 
grama son precisamente estas cuatro 
lfneas. 
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DETECCION DE FORMAS EXTRANAS 



EN LA PANTALLA 



■ 


COMPROBACIONES DE COLOR 


B 


EL COMANDO PEEK 


m 


EL PROGRAMA DE LA PELOTA 


■ 


DETECCION DE LOS CHOQUES 



Tu ordenador puede seguir compli- 
cados graficos utilizando determinados 
comandos que le permiten observar su 
propia pant alia. Esto resulta especial- 
mente util en los juegos en los que se 
producen colisiones 

En las situaciones en que hay as 
creado una figura detallada sobre la 



pantalla, £como puedes asegurarte de 
que el siguiente objeto que anadas a 
la imagen no coincidira con algo que 
ya habfa alii antes? 

Una respuesta obvia es que seas cui- 
dadoso y sistematico al llevar la cuen- 
ta de las zonas de la pantalla que ya 
han sido utilizadas. Pero esto puede 
llegar a resultar enormemente compli- 
cado, y hay circunstancias en que pue- 
de ser casi imposible, como es el caso 
de los graficos moviles. Y sin embar- 



go este es precisamente el tipo de pro- 
blemas con el que te encuentras al es- 
cribir programas de juegos y cosas pa- 
red das en las que hay invasores y ve- 
hiculos espaciales moviendose por una 
galaxia, o fantasmas recorriendo un 
laberinto. En tales casos tienes que 
asegurarte de que no se impriman dos 
graficos en el mismo sitio, o de que es 
lo que sucedera si se produce la coli- 
sion, por ejemplo, que se desintegre 
la nave espacial. 




40 INPUT 



=HT=IWi; news 



REPRESENTACION EN 
ESP ANA DE: 



PROVENZA, 385-387 
TEL. (93) 207 24 99* 



TELEX 97791 
08025 BARCELONA 



IMPRESORA PARA SU COMMODORE 

(optima relacion precio/prestaciones) 



-Cabezal 9 agujas 
-Doble operatividad 
-Cinta autorefintada 
-Tampon retintable 
-Ausencia de rodilk) 
-No dobla el papel 
-Elevadores inferiores 
-Admite texto rigido 
-Maximos tipos de escritura 




Modelo SUPER C+, 120 cps, 
NLQ, ASCII y COMMODORE 



• Conexion directa a Commodore 
(cable incl.) Traccion y friccion 




LA IMPRESORA PARA COMMODORE, ASCII Y PC'S COMPATIBLES 

(Maxima versatilidad/precio ajustado) 

jm^^^ RITEMAN 10-C 

^^^^^^ ... ■ ■ ■ 

'-^■B —140 cps, traccion y friccion 

^^fcjfc^^HSZa ; ' — Paralelo centronics/Commodore serie DIN 

M ^Smj^^^m WW -Tablas ASCII y PC en Rom interna 

ftSp — Tabla 100% Commodore y 8K RAM en modulo 

^PSIH!(j|J| ^ '£ H —Interface Commodore exterior incluido 

0* opc oo£)l 



NOT A: Para Aplicaciones en las que se necesite mas velocidad, o mayor tamano de carro, tambien 
pueden aplicarse nuestros interfaces externos a los modelos RITEMAN 10/11 y RITEMAN 15. 



Commodore es marca registrada de Commodore Business Machine, Inc. 
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DETECCION DE FORMAS 
EXTRANAS 



Supongamos por ejemplo que de- 
seas escribir un programa que haga 
aparecer en pantalla una pelota dan- 
do botes. En este caso la cosa es muy 
sencilla: como conoces las coordena- 
das de los cuatro lados de la pantalla, 
puedes incluir en tu programa cuatro 
condiciones IF ... THEN para com- 
probar si la pelota ha llegado o no a 
uno de los cuatro lados. Ello se hace 
comparando las coordenadas de la pe- 
lota con las coordenadas conocidas de 
los lados. Pero <?,que sucede cuando lo 
que quieres comprobar es si la pelota 
ha golpeado contra un objeto de for- 
ma mas extrana, por ejemplo circular? 

Podn'as utilizar el mismo metodo, 
disponiendo unas cuantas comproba- 
ciones del tipo IF ... THEN que con- 
tengan los detalles de las coordenadas 
del circulo para ver en que puntos gol- 
pea la pelota con los lados. Pero de- 
bido a que la forma curva es especial- 
mente compleja, se necesitaria un nu- 
mero de comprobaciones muy grande. 
Sabes que el ordenador necesita mu- 
cho tiempo para ejecutar cada com- 
probacion IF . .. THEN. Un programa 
escrito de esta forma resultaria extre- 
madamente lento, y el movimiento re- 



sultantc sobre la pantalla sc produci- 
n'a a base de tirones o sacudidas. 

Existe un limite para las velocida- 
des que es posible obtener utilizando 
el BASIC. Pero tu ordenador tiene un 
comando que te permite detectar la 
presencia sobre la pantalla de cual- 
quier objeto con mucha mayor rapi- 
dez que la comprobacion de las coor- 
denadas. Esto es posible aunque no se 
conozca su posicion. 



EL COLOR POR MEDIO DE 
NUMEROS 



El comando PEEK en el Commodo- 
re te devuelve como respuesta el co- 
lor especificado en cada caracter cua- 
drado. Esto significa que puedes de- 
tectar la presencia de cualquier obje- 
to, sin mas que especificar su color y 
comprobando todas las posiciones de 
pantalla. Asi, en el ejemplo anterior, 
con un circulo rojo resultaria el nume- 
ro de codigo del color rojo cada vez 
que se presentara. Comprobando uni- 
camente este codigo el programa po- 
dria hacer que la pelota rebotara ha- 
cia afuera del circulo, o cualquier otra 
cosa. 

En realidad tanto el Commodore 64 

como el Vic dan como respuesta un 
numero del al 15, que es el numero 



del color. El Commodore 64 Ic suma 
240 a cada numero, con lo que resulta 
un numero comprendido entre 240 y 
255. No tienes mas que restar 240 del 
numero que obtengas, para tener cl 
numero del color. Asi, si por ejemplo 
has hecho un PEEK en una determi- 
nada direccion de un caracter de co- 
lor, y has obtenido como respuesta 
240, el valor de color que resulta es el 
0, que corresponde al negro. 

En cuanto a la sintaxis de este co- 
mando, digamos que en el Commodo- 
re es ligeramente diferente de la utili- 
zada en otros ordenadores, ya que en 
lugar de utilizar las coordenadas de 
pantalla situadas entre parentcsis para 
que el ordenador sepa en que cuadra- 
do estas interesado, lo que hace es 
aplicar un PEEK en las direcciones 
reales de memoria que contienen los 
detalles de la zona de pantalla de que 
se trate. La direccion del primer ca- 
racter cuadrado es 55296 y la del ulti- 
mo caracter es 56295. Este «fichero» 
ocupa exactamente 1000 bytes; re- 
cuerda que la pantalla esta formada 
por 25 lrneas de 40 caracteres. 

La primera direccion corresponde 
al caracter cuadrado situado en la es- 
quina superior izquierda de la panta- 
lla, la siguiente direccion es la del si- 
guiente caracter de esa linea, etc. Esto 
significa que los detalles del color del 
caracter situado en la esquina inferior 
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derecha de la pantalJa, estan conteni- 
dos en la direction 56295. En conse- 
cuencia el comando adopta la siguien- 
te forma: 

PRINT PEEK (56296) AND 15 

(La ultima parte de la instruction 
hace que resulte un numero del al 
15). Por desgracia, no puedes invertir 
el proceso y cambiar los colores de 
cada caracter cuadrado. Sin embargo, 
si que puedes POKEar diferentes va- 
lores en el fichero de atributos de tu 
ordenador. 

Teclea y ejecuta el siguiente progra- 
ma, que constituye un ejemplo de uti- 
lization del comando PEEK. 

^K^S para C-64 y Vic-20 

1 REM**GSIGNIFICA ESPACIO 

5 S=40:CC=55296:D=21:SC=1024 
:A1=18: :A2=10 

10 FOR Z=0 TO S-1 : PRINT 

"CCTRL-T-5H CSHIFT++1 "; :R$= 
R$+"CCRSR izq.]":S$=S$+ 
"□":NEXT Z 

20 FOR Z=C TO D : PRINT" 

CSHIFT++3 CCTRL+9!] CCRL+8U " 
LEFT$(S$,S-2) "CCTRL+5D 
CTRL+03CSHIFT++1"; :D$=D$+ 
"CCRSR abajoj":NEXT Z 

30 FOR Z=0 TO S-1 :PRINT 
"CSHIFT++3"; :NEXT Z 



50 FOR 1=1 TO S:X=(INT(RND 
(1 )*A1 )+1)*2:Y=(INT(RND 
C1)*A2)+1)*2 

60 PRINT "CCLR/H0ME] CCRSR 
aba jo] "LEFT$(D$, Y) LEFTS 
(R$,X) ,, CCTRL+91C]":NEXT 

70 X=10:Y=10:XV=-1 :YV=1 

80 POKE SC+X+Y*S,215:0Y=Y: 
0X=X 

90 X=X+XV:Y=Y+YV 

100 C1=PEEK(CC+(X-1)+Y*S) 
AND 15 

105 C2=PEEK(CC+X+(Y-1 )*S) 
AND 15 

110 C3=PEEK(CC+(X+1)+Y*S) 
AND 15 

115 C4=PEEKCCC+X+(Y+1 )*S) 
AND 15 

120 IF C1=4 OR C3=4 THEN XV= 
-XV 

125 IF C2=4 OR C4=4 THEN YV= 
-YV 

130 POKE SC+0X+OY*S,160:GOTO 
80 

Para el Vic, teclea las lmeas 10 a 130 
igual que en el pro grama del C-64, 
anadiendo a continuation lo siguiente: 

5 S=22:CC=38400:D=19:SC=7680 
:A1=9:A2=8 



Los programas anteriores empiezan 
por establecer un contorno y una se- 
rie de cuadrados posicionados aleato- 
riamente, todos del mismo color (pur- 
pura). La pelota es de un color distin- 
to, y naturalmente lo mismo ocurre 
con el color de fondo. 

La line a 5 define las variables que 
intervienen en el programa. S es el nu- 
mero de caracteres de una linea (se 
utiliza una variable para ello, ya que 
el Commodore 64 y el Vic tienen pan- 
tallas de tamanos diferentes) ; CC es la 
direction de comienzo de la memoria 
de color de la pantalla, que tambien 
es diferente para el 64 y el Vic, como 
tambien lo es la direction de comien- 
zo de la memoria de pantalla a la que 
hemos llamado SC. Las dos ultimas 
variables, Al y A2, son los limites en- 
tre los cuales el ordenador puede si- 
tuar bloques aleatorios. Estos lrmites 






INPUT 43 



se fijan para definir un area mas pe- 
quefia que la definida por el contor- 
no, para evitar que alguno de los blo- 
ques se situe en la misma position que 
alguno de los de los hordes. 

En las lfneas 20 a 60 se establecen 
los bordes y se anaden los cuadrados 
aleatorios. A continuation el ordena- 
dor mueve su cursor y define cuatro 
nuevas variables (xey para la posi- 
cion de la pelota y xv e yv para la ve- 
locidad inicial en cada una de las dos 
direcciones). La lmea 80 sirve para po- 
kear la pelota en la pantalla. Esto es 
realmente lo que hace, mas bien que 
imprimirla, ya que para hacer un 
PRINT se requeririan mas caracteres 
de control del cursor, lo que nana que 
el programa resultase mucho mas len- 
to; en tal caso el ordenador tendria 
que desplazar primero el cursor y a 
continuation hacer un PRINT de la 
pelota. 

Lo que realmente hace la instruc- 
tion de POKE es cargar el valor 215 
en la position de pantalla calculada 
por el programa, que es a la que debe 



ir a parar la pelota. El numero 215 es 
el codigo ASCII del caracter que re- 
presenta a la pelota. 

En la lmea 90 se suma la componen- 
te x de la velocidad (xv) a la coorde- 
nada x y la componente y de dicha ve- 
locidad (yv) a la coordenada y, obte- 
niendo asi la nueva posicion de la pe- 
lota. 



COMPROBACION DEL COLOR 



En las cuatro lineas siguientes se de- 
finen cuatro variables, CI a C4, que 
corresponden a los numeros de color 
de los cuatro cuadrados que rodean a 
la pelota. A continuation hay dos li- 
neas de programa en las que se hace 
la comprobacion de color; el color 4 
es el del contorno y los cuadrados 
aleatorios. 

Si aparece un 4 correspondiendo a 
alguno de los cuatro cuadrados que ro- 
dean a la pelota, la siguiente parte del 
programa hara que esta invierta su tra- 
yectoria con una direction opuesta a 
la que llevaba antes de chocar con el 



Si se te hace difi'cil encontrar INPUT 
en tu kiosco habitual, 
reservalo por adelantado, o haznoslo saber 
para que podamos remediarlo 



obstaculo. Se hacen dos comprobacio- 
nes separadas, una en la direction ho- 
rizontal (eje x) y otra en la direction 
vertical (eje y). Observa que no se tra- 
ta simplemente de invertir el movi- 
miento de la pelota en las dos direc- 
ciones. Si asi se hiciera la pelota siem- 
pre se iria por donde habfa venido. 

Las dos comprobaciones para la x, 
correspondientes a los cuadrados si- 
tuados a derecha e izquierda de la pe- 
lota, se hacen en la misma sentencia 
IF ... THEN. Se puede hacer esto de- 
bido a que el resultado es el mismo si 
es cierta una cualquiera de las dos con- 
diciones. La componente x de la velo- 
cidad se invierte mediante un cambio 
de signo, pasando de positiva a nega- 
tiva o vice versa; asi -5 se convierte en 
5 y 5 se convierte en -5. Lo mismo 
puede decirse de las comprobaciones 
para la componente y. 

La ultima linea del programa pokea 
el valor 160 en la posicion antigua de 
la pelota (contenida en las variables ox 
y oy), para borrarla de la pantalla. Se- 
guidamente el programa se vuelve a la 
linea 80 para seguir con el movimien- 
to de la pelota. 

Sena muy sencillo anadir unas 
cuantas lineas al programa anterior 
para convertirlo en un juego. En fu- 
turos artfculos de INPUT utilizaremos 
este comando en una amplia varied ad 
de rutinas de juegos. 
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JL DELTABIT 

£3£nk Colon, 20 

tJggXL 46460 SILLA 

7^%f (VALENCIA) 

nmwMinHNiE Tel. (96) 120 29 25 

DISTR1BUIDORES BIENVENIDOS 



FORMA DE PAGO: 

CHEQUE PERSONAL 
CORREO CONTRAREEMBOLSO 
TAJETA VISA/MASTERCARD 



VISA 
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CARTUCHO FREEZE FRAME MKIII 

EL MEJOR DE LOS METODOS DE BACKUP ES AHORA TODAVIA MEJOR. 
NUEVA VERSION MKIII 
El cartucho le hace BACKUPS de: 

CINTA A DISCO * CI NT A A CIMTA * DISCO A DISCO * DISCO A CINTA 

FUNCIONA CON: Ordenadores: C-64, C-128 y C-128/D (en modo C-64) - Uni- 
dades de disco; 1541, 1570, 1571 - Datassette: Commodore o compatible. 
Hace el BACKUP: Ocupando el menor espacio de disco o cinta posible. Tam- 
bien de proqramas MULTIPROGRAMAS. 100% de exito en el BACKUP. Salva 
a disco en modo TURBOSAVE, TURBOLOAD Y AUTO RUN, o a velocidad Nor- 
mal (para los que tengan un turbo instalado en la unidad de disco), y en cinta 
salva a unos 2.400 baudios (TURBOSAVE), TURBOLOAD Y AUTORUN. Es to- 

talmente TRANSPARENTE, lo que implica que no ocupa memoria y que es totalmente compatible con cual- 

IMPOrTaNTE: Los backups CQrren INDEPENDIENTEMENTE del cartucho FREEZE FRAME MKII. 

ATENCION- No se deje influenciar por otros medios de BACKUP. El cartucho FREEZE FRAME fue el pri- 
mero en nacer y ha dado lugar a muchas imitaciones. Pero sigue siendo el LIDER. De exclusivo uso 

personal. , , 

GARANT1A: 6 meses. PRECIO: 11.900 ptas. (INCLUIDO: IVA + Gastos de erwio). 

DELTABIT ofrece a sus CLIENTES la posibilidad de cambiarles el MKII por la nueva version MKIII, al precio 

de 4.000 ptas. (IVA + gastos, incluidos). 

INTERFACE COSMOS' THOUG 

Este interface le permite hacer backups de seguridad de CINTA A CINTA de TODO software en soporte 
cassette (de CUALQUIER ordenador personal). 

Funciona con: C-64, C-128, C-128/D y dos datassettes Commodore o compatibles (o una datassete y una 
cassette de audio normal). 

100% de exito GARANTIZADO en el backup. De exclusivo uso personal. Testigo acustico de volu- 
men regulable. GARANTIA: 12 meses. PRECIO: 4.900 ptas. (INCLUIDO: IVA + Gastos de envio). 
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tfAnastre una rodilla par el asfallal! 

Aguante el arranque tie la camera a 
180 km/h., sin que le rechinen los Jientes. 



Hay dos pilolos junto a usted. Uno 
viene por detras y el otro a la altura ■ 
su codo. El rugido de las motos es 
ensordecedor. 



El viento golpea su casco; su 
adrenalina esta subiendo como la 
espuma. 




Tumba su moto hacia la derecha... y ha sido golpeado. 
esta volando y dando tumbos junto con la moto. 

Aparte sus ojos de la carrctera una 
milesima de segundo y acabara en la 
cuneta. 

Todo esta borroso; no hay tiempo para 
pensar. La proxima curva acaba en un 
precipicio y es muy cerrada; los 




neumaticos de la moto que le precede, 
hacen sallar grava sobre su... su... 

Se oye un telefono ^un telefono? 
jjHcy!! espere un momenta Esto no es 
una moto, es una silla. Ahora todo 
vuelve a la realidad. 

Si, usted esta en casa, la pizza esta 
aqui, el ordenador esta conectado. 
Parece, que al final va a ser otra 
apacible noche despues de todo. 

Si Super-Cycle fuera un poco mas 
realista, usted necesitan'a un seguro 
para conducirlo. 



C-64/128 
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ORDENADORES, PUZZLES 
Y MATEMATICAS 



TIPOS DE PUZZLES 



USO DEL ORDENADOR 



ECUACIONES SIMULTANEAS 
PRUEBA Y ERROR 



TRUCOS MATEMATICOS 



Agudiza el ingenio y pon a prueba 
tu destreza en programacion con estos 
dificiles rompecabezas. Tambien 
aprenderas aqui unas cuantas tecnicas 
nuevas para resolver sistemas de ecua- 
ciones. 

A estas alturas de nuestra andadu- 
ra en INPUT, ya tienes una buena 
base en casi todas las tecnicas de pro- 
gramacion en BASIC. Dado un pro- 
blem a cualquiera, deberias ser capaz 
de escribir un programa para resolver- 
lo (en el supuesto de que realmente 
pueda ser resuelto). Pero a menos que 
tengas un hobby especial o algun pro- 
yecto entre manos que haga uso del 
ordenador, con frecuencia es dificil 
pensar cosas con las que ponerse a ha- 
cer pruebas. 

Los rompecabezas ofrecen un desa- 
fio que suele ser bienvenido, ya que 
constituyen una forma entretenida de 
practicar la programacion y de mante- 
ner al dfa tus habilidades. Han sido 
muy pop ul ares durante miilares de 
aiios. Se sabe que los egipcios disfru- 
taban resolviendo rompecabezas y que 
los antiguos griegos eran extremada- 
mente aficionados a los rompecabezas 
y paradojas matematicas y logicas. De 
hecho muchos problemas que empeza- 
ron como un simple divertimento con- 
dujeron posteriormente a importantes 
descubrimientos en matematicas y en 
otras ciencias. 

La resolution de un problema con 
exito te hara sentir una sensation de 
satisfaction y, si parti cipas en alguno 
de los cada vez mas abundantes con- 
cursos organizados por las revistas de 
informatica, puedes ganar muchos 
premios. Pero la solucion de estos 
rompecabezas te ensenara ademas so- 
bre programacion mucho mas de lo 
que puedes aprender por simples lec- 
turas sobre el tema ya que te obliga a 
trabajar con tus propios metodos y a 
poner a prueba tus propias ideas. 
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PUZZLES 
PARA ORDENADOR 



Lxistcn muchos tipos de rompeca- 
bezas, no todos de los cuales son ade- 
cuados para ser resueltos por medio 
de ordenador. Muchos de ellos requie- 
ren una idea feliz o un poco de razo- 
namiento logico. Un ejemplo clasico 
del tipo que requiere razonamiento lo- 
gico es el siguiente. Un hombre posee 
tres cosas: un lobo, una oveja y una 
berza, las cuales tiene que transportar 
a la orilla opuesta de un rio. Pero el 
bote que utiliza es muy pequeoo y solo 
puede llevar una cosa cada vez. Y si 
deja en tierra el lobo y la oveja, el 
lobo matara la oveja, mientras que si 
deja a la oveja y la berza, la oveja se 
comera la berza. ^,C6mo puede hacer 
para pasar a la otra orilla del rio las 
tres cosas y tenerlas intactas? 

Este enigma puede resolverse con 
un ordenador (si te gusta, puedes in- 
tentar escribir un programa que lo 
haga), pero es mucho mas rapido ha- 
cerlo con papel y lapiz o directamente 
de memoria. 

Los tipos de enigmas que mejor se 
resuelven por ordenador son los que 
contienen un cierto numero de hechos 
y cifras, en los que se pide encontrar 
el valor de alguna incognita. Otros 
que tambien funcionan bien sobre or- 
denador son los que exigen realizar ta- 
reas complicadas de tipo aritmetico o 
geometrico. En tales casos es mas ra- 
pido escribir un programa que resuel- 
va el problema que intentar hacerlo 
por tl mismo. 

Este artfculo te ensenara la forma 
de resolver tres de los tipos mas co- 
munes de puzzles. Antes de mirar las 
soluciones, merece la pena que te en- 
tretengas en gastar algo de tiempo in- 
tentando resolverlos tu solo. Despues 
pasa ya a consultar los programas y la 
explication de su funcionamiento. 



SIMPLIFICACION DE PROBLEMAS 



Si no estas muy acostumbrado a re- 
solver adivinanzas, al principio puede 
que la cosa te resulte bastante dificil. 
Se requiere un poco de practica para 
separar la informacion esencial de la 
masa de palabras confusas, que solo 
sirve para despistar. De hecho los 
enigmas del primer tipo se basan en 
las palabras que enmascaran lo que 
con frecuencia es un problema bastan- 
te sencillo. Cuando se le despoja de 
sus palabras, el enigma conduce habi- 
tualmente a la solucion de un sistema 
de ecuaciones. Aqm tienes un sencillo 
problema que puedes resolver sin or- 
denador y que te ayudara a en tender 
los principios que intervienen. 

Un grupo de amigos entra en un bar 
y pide tres cafes y dos tes. La cuenta 
asciende a 176 pesetas. Al dfa siguien- 
te se les agrega alguien mas, y piden 
el doble de tes y un cafe menos. Esta 
vez la cuenta sube 16 pesetas mas. 
^Cuanto cuesta la taza de te? 

Si eliminas toda la informacion no 
esencial y utilizas letras en vez de pa- 
labras, el problema se reduce a 3c + 
2t = 176 y 2c + 4t = 192. 

A esto se le llama sistema de ecua- 
ciones simultaneas, por que han de sa- 
tisfacerse las dos al mismo tiempo. 
Para poder resolver un sistema de 
ecuaciones simultaneas se necesitan 
tantas ecuaciones como incognitas. En 
este caso hay dos incognitas a las que 
hemos llamado c y t, asf como do 
ecuaciones, por lo que el sistema en 
principio tiene solucion. Ademas las 
ecuaciones son lineales ya que ningu- 
na de las variables aparece elevada a 
una potencia mayor que 1. Por ejem- 
plo —3c 2 + 2t = 176 es una ecuacion 
no lineal que se resuelve por un me- 
todo diferente. 

Para resolver el problema puedes 
reordenar la segunda ecuacion, lo que 
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te dara c = (192 — 4t)/2 y a continua- 
tion sustituir en la primera. Se obtie- 
ne 3(192 - 4t)/2 + 2t = 176. Reagru- 
pando de nuevo los terminos, se ob- 
tiene t = 28, por lo que una taza de 
te cuesta 28 pesetas. 

Las ecuaciones con dos incognitas 
como esta son faciles de resolver y las 
de tres incognitas tampoco son dema- 
siado dificiles. Pero para un mayor nii- 
mero de incognitas el ordenador resul- 
ta decisivo a la hora de hacer por ti el 
trabajo mas duro. 

EL VENDEDOR DE SELLOS 



Aqul tienes el primer enigma real 
que debes resolver. 

Un vendedor de sellos tiene una 
caja con sellos extranjeros que piensa 
vender en paquetes de seis valores di- 
ferentes. El precio de los paquetes 
esta codificado desde la A a la F. Seis 
jovenes miembros de un club fi- 
latelico se presentan a la vez dis- 
puestos a gastarse todo el dine- 
ro que llevan en el bolsillo como 
se ve en el cuadro 1. 

A B C D E F TOTAL' 



Elena 


6 


2 


3 


1 


1 


2 


341 


Jai me 


14 


11 





1 


2 


i 
i 


469 


Anita 





1 


3 


6 


4 


3 


598 


Mar 


5 


3 


5 


2 


1 


1 


376 


Lui s 


12 


1 


4 


4 


3 


2 


587 


C Lara 


8 





1 


1 





3 


293 



La pregunta es: ^Cual era el precio 
de cada paquete? 

El intentar resolver este sistema de 
ecuaciones eliminando una variable en 
cada paso, es posible, pero requeriria 
mucho tiempo y se presta a que se co- 
metan errores de calculo. Con el si- 
guiente programa podras resolver esta 
adivinanza asf como cualquier otro sis- 
tema de ecuaciones lineales simulta- 
neas, las cuales se presentan en mu- 
chos tipos de problemas y no solo en 
la resolucion de acertijos. 

Existen varias formas de resolver 
sisiemas de ecuaciones como este, y 
puedes encontrar metodos diferentes, 
pero el programa que sigue es rapido 
.::r.en:e corto: 



■fggjj para C-64 y Vic-20 

10 PRINT"[SHIFT+CLR/HOFiEJ": 
INPUT"INTRODUCE 
EL NO. DE FILAS";R:C=R+1 
PRINT 

DIK ACR,C),B 
(R,C), 



30 
40 



50 
60 
70 



FOR K=1 TO C-1 
PRINT"NOMBRE DE LA 
INC0GNITA";K; :INPUT 
A$CK) 

NEXT: PRINT 
FOR J=1 TO R 
PRINT"COEFICIENTES DE 




Progression 



80 FOR K=1 TO C 
90 INPUT A(J,K) 
100 B(J,K)=A(J,K) 
110 NEXT:NEXT 
120 FOR L=1 TO R 
130 GOSUE 230 
140 GOSUB 280 
150 NEXT 

160 print'Tshift+clr/home:" 
170 for k=1 to c-1 : print tab 

(8*k-7);a$(k);:next:pr1nt 
180 for j=1 to r : for k=1t0c: 

print tab('k*8-8);bcj ,k); 
190 next: print: next 
200 print: pr1nt"resultad0s:- 
210 for k=1 to c-1 : print tab 

(8*k-8);ack,c);:next 

220 END 
230 REN 
240 D=A(L,L) 
250 FOR K=1 TO C 
260 A(L,K)=A(L,K)/D 
270 NEXT : RETURN 
280 REM 

290 FOR J=1 TO R 
300 IF J=L THEN NEXT : RETURN 
310 F=A(J / L) 
320 FOR K-1 TO C 
330 A(J,K)=A(J,K)-F*A(L / K) 
340 NEXT :NEXT: RETURN 

La primera parte del programa, en- 
tre las lmeas 10 y 110, te permite in- 
troducir los datos. mientras que la se- 
gunda parte, situada entre las lmeas 
120 y 150 llama a dos subrutinas (o 
procedimientos) para calcular la res- 
puesta, la cual se imprime entonces en 
las lmeas 160 a 220. 

Los valores se cargan en la matriz 
A(J,K) a razon de una fila cada vez. 
En este programa, J se refiere a las fi- 
las y K a las columnas, lo cual has de 
tener siempre en la mente al leer el 
resto del programa. La matriz A(J,K) 
se copia sobre una matriz identica 
B(J,K) de forma que se pueden impri- 
mir los valores originales junto con la 
respuesta en la lfnea 180. 

El calculo avanza de fila en fila, 
controlado por cl bucle que se extien- 
de entre las lmeas 120 y 150. Antes de 
hacer otras cosas, la rutina de las lf- 
neas 230 a 270 extrae el elemento dia- 
gonal de la fila (es decir A(l,l), 
A (2.2). etc.) y divide cada elemento 
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de dicha fila por ese valor. El valor del 
elemento diagonal resultante es ahora 
igual a uno, es decir, ha quedado nor- 
malizado. 

La siguiente rutina es la encargada 
de hacer la mayor parte del trabajo de 
este programa. Aunque solo contiene 
seis lmeas, resulta muy diffcil exami- 
nar lo que hace. La mejor manera de 
entenderlo es examinar a fondo un 
ejemplo real (aunque corto) siguiendo 
uno por uno los pasos que va dando 
el ordenador. En esencia funciona de 
la siguiente manera. Supongamos que 
f ■ ya has normalizado la fila 1 , por lo que 
L es 1. La lfnea 290 toma entonces 
cada fila diferente de la 1 (lfnea 300), 
por lo que en este caso empieza por 
la 2. La lfnea 310 toma el primer ele- 
mento de la fila 2 y le llama F. Toda- 
yfa en la fila 2, la lfnea 320 va reco- 
rriendo todas sus columnas, y la lfnea 
330 multiplica F por el elemento co- 
rrespondiente de cada columna, pero 
de la fila 1, restandolo del elemento 
de la misma columna en la fila 2. Esto 
mismo lo va haciendo con las filas 3, 
4, 5 y 6. Seguidamente empieza otra 
vez con L igual a 2. 

Al final de este proceso, los elemen- 
tos diagonales de cada fila siguen sien- 
do y todos los demas elementos son 
ceros. Por eso se pueden leer con fa- 
cilidad los valores en la columna de la 
derecha. 



LOS REGALOS DE NAVIDAD 



El programa que acabamos de ver 
sirve para resolver cualquier sistema 
de ecuaciones lineales simultaneas en 
el que hay tantas ecuaciones como in- 
en los que las cosas se organizan de tal 
manera que no hay ecuaciones sufi- 
cientes, por lo que no se pueden re- 
solver de esta forma. De hecho no 
existe una solucion unica y el truco 
consiste en seleccionar la respuesta 
mas plausible entre todas las solucio- 
nes disponibles. Normalmente el enig- 
ma contendra una clave que te ayuda- 
ra. Tambien podrfa ocurrir que las 
ecuaciones resultaran ser no lineales. 

Ensaya ahora el siguiente enigma. 
En Navidad, el tfo Alberto, que es un 



matematico un poco excentrico, expli- 
co a sus dos jovenes sobrinos que le 
darfa a cada uno tantos paquetes como 
la edad que tenfan (contando solo los 
anos). Tambien les dijo que cada pa- 
quete contenfa el mismo numero de 
sobres que la edad de cada uno, y que 
cada sobre contenfa un numero de pe- 
setas igual a la edad de cada nino. 
Despues de preparar los regalos, se le 
oyo murmurar entre dientes que el si- 
guiente ano la cosa le iba a costar 500 
pesetas mas. <;Que edades tenfan los 
dos ninos? 

Suprimiendo las palabras y llaman- 
do A y B a las edades de los ninos, asf 
como M a la cantidad de dinero gas- 
tada en este aho, la solucion del enig- 
ma queda reducida a la de las ecua- 
ciones siguientes: 

Af3 + Bf3 = M; 

(A + 1) f 3 + (B + 1) f 3 = M + 
500 

Tenemos tres incognitas: A, B y M, 
pero solo dos ecuaciones. Sin tener un 
ordenador, podrfas utilizar un metodo 
de prueba y error para ir ensayando 
diferentes valores de A y B, y obser- 
vando si las ecuaciones se satisfacen. 
El ordenador trabaja de una forma pa- 
recida, salvo que naturalmente puede 
hacer varios cientos o miles de ensa- 
yos de valores diferentes en un tiem- 
po muy corto y sin cometer errores. 

El primer paso en la resolution del 
problema es buscar en el enunciado 
del enigma alguna pista suplementaria 
que te pueda ayudar a limitar el mar- 
gen de valores que debes ensayar. 
Como se habla de «jovenes» sobrinos, 
no es probable que tengan mas de 14 
anos, y es muy probable que al menos 
tengan tres anos. El programa para re- 
solver el problema es muy corto: 

^^^M para C-64 y Vic-20 

10 FOR A=3 TO 14 

20 FOR B=A. TO 14 

30 f4=A A 3+B A 3 

40 N=(A+1 ) A 3+(B+1) A 3 

50 IF ABSCM+500-NX.01 THEN 

PRINT"A=";A,"B=";B 
60 NEXT B 
70 NEXT A 




INPUT 49 



EGUACIONES SINGULARES 



Hay algunas situaciones espe- 
ciales, con frecuencia bastante 
tontas, en que los sistemas de 
ecuaciones simultaneas tienen o 
una solucion ambigua o carecen 
por completo de solucion. Las 
ecuaciones x = 2 y x = 3 obvia- 
mente no pueden satisfacerse al 
mismo tiempo, e incluso cuando 
tiene tantas ecuaciones como in- 
cognitas, como en el caso x -I- y 
= 3; x 4- y = 1 no pueden cum- 
plirse simultaneamente. 

Otro caso son las ecuaciones 
x + y = 2; 2x + 2y = 4. En este 
caso se trata de dos ecuaciones 
que no son independientes; 
esencialraente se trata de la mis- 
ma ecuacion, existiendo muchas 
solucion es posibles. 

Cuando cuentes con el nume- 
ro de ecuaciones adecuado y 
siga habiendo incompatibilida- 
des o las ecuaciones no sean in- 
dependientes, se dice que el sis- 
tema es singular. 

El caso de las ecuaciones de- 
pendientes se puede resolver 
utilizando un metodo de prueba 
y error, como hacfamos en el 
caso de los regalos de Navidad. 
Pero al ser posibles varias solu- 
ciones necesitas alguna informa- 
tion adicional para seleccionar 
la correcta. 



Al ej ecu tar este programa obten- 
dras solamente una respuesta, debido 
a las restricciones introducidas en las 
lineas 10 y 20. Si en el enigma no se 
hubiera especificado que los sobrinos 
son jovenes, el bucle FOR ... NEXT 
tendria que extenderse mas. Digamos 
de paso que la condition impuesta en 
la lmea 50 evita problemas con los 
errores de redondeo; lo que realmen- 
te se esta comprobando es si se cum- 
ple que M + 50 es igual a N. 

Este metodo debe funcionar para 
todos los problemas con mas incogni- 
tas que ecuaciones. En otros tipos de 
problemas, puede que te sea necesa- 
rio hacer hipotesis acerca de los valo- 
res de mas variables, o tal vez incluir 
mas condiciones TF . . . THEN del tipo 
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de la que aparece en la linea 50. Con 
un numero muy elevado de incognitas 
o de condiciones el programa puede 
tardar muchos minutos o incluso ho- 
ras en ejecutarse, aunque seguira sien- 
do resoluble. 



cion sea un numero de cinco cifras. 
Por la misma razon D no puede ser 
mayor que 4. Ahora puedes ya escri- 
bir el programa para resolver el pro- 
blems: 



MAGIA MATEMATICA 



El tcrcer tipo dc rompecabezas que 
aparecen en las revistas de informati- 
ca son los problemas de numeros. Sue- 
len plantear cuestiones de aritmetica 
aparentemente sencillas que resultan 
extraordinariamente laboriosas de re- 
solver a menos que se utilice un orde- 
nador. 

Aquf tienes un par de ejemplos. 

Existe un numero de cuatro cifras 
que cuando se invierte y se multiplica 
por un entero se convierte en el nu- 
mero original: 8712 = 4*2178. El pro- 
blema es encontrar si existen mas nu- 
meros con esta misma propiedad, y en 
caso afirmativo calcularlos. 

Otro numero interesante es el 
987654321. Este numero es un multi- 
plo exacto de 17 y utiliza todos los df- 
gitos del 1 al 9. Trata de encontrar el 
numero inferior mas proximo que ten- 
ga estas mismas propiedades. 

Las soluciones a este tipo de pro- 
blemas se basan en considerar el nu- 
mero como una coleccion de cifras 
mas que como uri valor numerico. 
Puedes, dividir el numero en unida- 
des, decenas, centenas, etc, o tratarlo 
como una cadena de cifras y separar 
estas con ayuda de los comandos de 
tratamiento de cadenas. 

El primer problema se resuelve me- 
diante el primer metodo. Si represen- 
tamos el numero por ABCD, da ori- 
gen a la siguiente ecuacion: 

1000*A + 100*B + 10*C + D = 
X*(1000*D + 100*C + 10*B + A) 

cuyas incognitas tienes que calcular. 
Como de costumbre la principal difi- 
cultad consiste en decidir que valores 
se ensayan. A puede variar entre 1 y 
9, no pudiendo ser cero ya que en ese 
caso tendrias un numero de tres cifras. 
B y C pueden variar entre y 9. El fac- 
tor de multiplication X debe ser al me- 
nos 2 y no debe superar a 10/D, para 
que el segundo miembro de la ecua- 



10 FOR A=1 TO 9 

20 FOR B=0 TO 9 

30 FOR C=0 TO 9 

40 FOR D=1 TO 4 

50 FOR X=2 TO INTC9.9/D) 

60 J=1000*A+100*B+10*C+D 

70 K=1000*D+100*C+1C*G+A 

80 IF X*K=J THEN PRINT J; 

"=";X;"*" ; K 
90 NEXT X,D,C,B,A 



Teclea el programa, a continuacion 
teclea RUN y sientate a esperar por- 
que llevara bastante tiempo la com- 
probacion de todas las combinaciones 
posibles. 

La solucion del segundo problema 
trata a los numeros como cadenas. 
Programa 4 S 6 4 C 



10 M=987654321 
20 M=M-17 
30 r?$=STR$(M) 
40 F=0 

50 FOR P=1 TO 9 
60 P$=CHR$(4£+P) 
65 FOR Z=1 TO LENCFlS) 
70 IF MID$(M$,Z,1>=PSi THEN 
90 

80 NEXT Z:F=F+1 

90 NEXT P: IF F=0 THEN PRINT 

WSffEMB 
100 GOTO 20 



El programa parte de 987654321 y 
va contando hacia abajo de 17 en 17, 
convirtiendo cada multiplo de 17 en 
una cadena de numeros a la que lla- 
ma M$. Las lineas 50 y 60 convierten 
cada dfgito del 1 al 9 en una cadena y 
a continuacion la lmea 70 comprueba 
si dicha cadena figura en M$. Si hay 
algiin dfgito que no este en M$, hay 
un indicador F que se incrementa una 
unidad. Solo se imprime M$ cuando 
con tiene todos los digitos del 1 al 9. 
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MICROORDENADORES 




Para 

saber como 
hablar con los 
ordenadores 

El Curso CEAC a Distancia, 
BASIC +Microordenadores, 
le va a introducir paso 
a paso, con un cuidado 
metodo, en uno de los temas mas 
apasionantes de nuestros das: 
la programacion de ordenadores. 
A! aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje disenado 
especialmente para dar los primeros pasos 
en programacion, estara sentando las bases 
para el estudio de cualquier otro 
lenguaje de alto nivel. 

Curso CEAC 

de BASIC + Microordenadore$: 
un dialogo permanente 
con el ordenador. 
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Otros Cursos: 

- Introduccion a 
la Informatica 

- Electronica [con experiment 

- Contabilidad 

- Fotografia 

- Curso de Video 

- Decoration 
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deseo recibir a la mayor 
brevedad posible information 
IJT sobre el Curso de: 



RATUITAMENTE 



Nombre y apellidos 



Edad 
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Pta. Tel. 



C. Postal. 



Poblacion 
Provincia . 



Profesion 



CEAC. Aragon, 47.2 
(Dpto. t-ZF J 08013 Barcelona 
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Aplieacione* 



COMO HACER w 
REFERENCIAS : 
CRUZADAS : 



SEGUIMIENTO DE ERRORES 
DE PROGRAMACION 



USO DEL PROGRAMA 



BUSQUEDA DE CADENAS 
DE CARACTERES 



Con esta practica utilidad en codigo 
maquina podras localizar en pocos se- 
gundos cualquier cadena de caracteres 
o cualquier palabra reservada dentro 
de un programa en BASIC, ahorran- 
dote gran cantidad de tiempo y esfuer- 
zo. Tambien podras hacer la sustitu- 
cion de una cadena por otra. 

El programa de referencias cruza- 
das que presentamos en este artfculo 
es lo que se llama un programa de uti- 
lidades o simplemente una «utilidad». 
Esto significa que no hace nada el 
solo, sino que se utiliza como una he- 
rramienta para ayudarte a desarrollar 
otros programas. Por esta razon esta 
escrito en lenguaje maquina, a fin de 
que pueda ser cargado en el ordena- 
dor al mismo tiempo que un progra- 
ma en BASIC. El programa en len- 
guaje maquina se queda en la memo- 
ria del ordenador esperando a que se 
le llame cada vez que haga falta su 
ayuda. 

El programa se utiliza para realizar 
busquedas de textos, con lo que te po- 
dras librar de tener que seguir peno- 
samente la pista a alguna determina- 
da seccion de un programa. Si le dices 
lo que estas buscando — una cadena 
de caracteres, una palabra reservada, 
un nombre de variable o lo que sea — 
el programa se encargara de buscarlo 
a lo largo del programa en BASIC y 
presentara todas las Imeas en las que 
aparezca. Aparte de esto, tambien 
cuenta con una facilidad extra de «sus- 
titucion» que te permitira remplazar 
una cadena por otra a lo largo de todo 
el programa. 

El programa te resultara de la ma- 
yor utilidad cuando estes desarrollan- 
do o escribiendo un programa en BA- 
SIC. Por ejemplo, si llegas a la con- 
clusion de que tienes que cambiar al- 



BUSQUEDA CON SUSTITUC10N 
LISTADO DE FUNCIONES 
Y PROCEDIMIENTOS 



gunas de las sentencias PRINT o IN- 
PUT, el programa te listara todas las 
lfneas en que aparezcan dichas senten- 
cias. O si te das cuenta de que el nom- 
bre de una de las variables de tu pro- 
grama entra en conflicto con otras ru- 
tinas, puedes usar la opcion de bus- 
queda con sustitucion, cambiando el 
nombre por otro, sin tener que editar 
ni una Imea. 

Tambien te resultara muy util tener 
cargado en el ordenador el programa 
de las referencias cruzadas cuando es- 
tes intentando adaptar o comprender 
un programa escrito por otra persona. 
Por ejemplo, puede ser un ejercicio 
muy fructifero imprimir todas las lf- 
neas en que aparecen las palabras 
GOTO o GOSUB, ya que a partir de 
aquf rapidamente podras trazar la se- 
cuencia de sucesos. 

Tambien te ayudara a localizar y 
perseguir los errores de programacion 
que pueda contener tu programa. Por 
ejemplo, puede ser que descubras que 
una determinada variable tome valo- 
res incorrectos en alguna parte de tu 
programa. El procedimiento usual de 
trabajo en estos casos es buscar Imea 
por linea, a lo largo de todo el progra- 
ma para localizar todos los sitios en 
que aparece dicha variable; es mas 
que probable que se te escapen unas 
cuantas. Sin embargo el programa de 
referencias cruzadas hara este trabajo 
por ti con toda precision en cuestion 
de segundos. 

El programa de referencias cruza- 
das forma parte de un paquete mas 
amplio de herramientas de programa- 
cion. El programa del que nos ocupa- 
mos aquf contiene un corto programa 
cargador escrito en BASIC y las sen- 
tencias DATA que contienen el codi- 
go maquina. Teclea el programa y al- 
macenalo antes de ejecutarlo, por si 




se te rompe al hacerlo. Seguidamente 
teclea RUN y, suponiendo que todo 
vaya bien, almacena el codigo maqui- 
na resultante tecleando: 



para Commodore-64 



POKE 43,0: POKE 44,1 92: POKE 



52 INPUT 



45 / 47:P0KE A6,195:CLR 
SAVE" REFCRUZ",1,1 

Cuando llegue el momento de utili- 
zar el programa necesitas cargar esta 
version del codigo maquina. Para ha- 
cerlo, pulsa: 



LOAD "REFCRUZ",1 ,1 

Tienes que hacer esta carga al prin- 
cipio de una sesion de programacion, 
antes de cargar un programa en BA- 
SIC. En cualquier momento puedes 
llamar al programa en codigo maqui- 



na utilizando SYS 49152, con lo que 
te apareceran las opciones disponi- 
bles. Recuerda que si estas utilizando 
una unidad de discos tienes que cam- 
biar por un 8 el primer 1 que figura en 
los comandos LOAD y SAVE ante- 
riores. 



INPUT 53 



Ap |icaciones 



Para buscar una determinada eade- 
na de caracteres, teclea L (de List) se- 
guida de los caracteres que quieres 
buscar, hasta un maximo de 76, y a 
continuation pulsa RETURN . El pro- 
grama te presentara todas las lfneas en 
que aparece dicha cadena de caracte- 
res. 

Para reemplazar una cadena por 
otra, pulsa R seguida de la cadena ori- 
ginal, a continuation una barra incli- 
nada (/) y la cadena que habra de sus- 
tituirla, por ejemplo R ab/zz. Se pue- 
den sustituir hasta cuatro caracteres y 
la nueva cadena puede ser mas corta, 
pero no mas larga que la original. 

Si tecleas K seguido del nombre de 
una palabra rcservada, te apareceran 
listadas todas las Mneas en que conten- 
gan dicha palabra. 

Si tecleas F seguida del nombre de 
una funcion definida por el usuario, el 
programa listara todas las Imeas en 
que dicha funcion es definida o llama- 
da. 

Por ultimo, para salir del programa 
y regresar al BASIC, pulsa E. 

|^^B^^ para.Commodore-64 

DATA 234,169,62,32,12,225, 
169,0,133,247,133,79,133, 
100,169, #1897 
10 DATA 8,133,101 ,32,18,225, 

201 ,76,240,50,201 ,82,240, 

107,201 ,#191 5 
20 DATA 70,240,31 ,201 ,69,240 

,26,201,75,240,99,169,69, 

32 ,12, #1774 
30 DATA 225,169,82,32,12,225 

,32,12,225,169,13,32,12, 

225,76, #1541 
40 DATA 0,192,234,96,234,162 

,0,169,165,149,85,232,76, 

78,1 92, #2064 
50 DATA 234,162,0,234,32,38, 

194,160,0,234,177,100,201 

,0,208, #1974 
60 DATA 7,32,158,192,201,0, 

240,158,234,162,0,213,85, 

208, 24, #191 4 
70 DATA 165,101 ,133,102,132, 

103,234,228,96,240,86,232 

,32,28,194,#2106 
80 DATA 177,100,213,85,208, 

3,76,111 ,192,234,32,28, 

54 INPUT 



194, 76, 84, #1813 
90 DATA 192,234,76,60,194, 
162,0,32,18,225,201,13, 
240,6, 149, #1802 
100 DATA 85,232,76,142,192, 
76,202,194,234,32,28,194 

,177, 100,201, #2165 
110 DATA 0,208,28,32,28,194, 

177,100,201 ,0,240,18,32, 

28, 194, #1 480 
120 DATA 165,101,133,95,152, 

1 33 ,94,32 ,28,1 94,32 ,28, 

194, 177, 100, #1658 
130 DATA 96,32,28,194,76,177 

,192,234,165,247,201 ,1 , ' 

208, 3,32, #1886 
140 DATA 127,194,165,94,168, 

165,95,133,101 ,169,0,133 

,100, 177, 100, #1921 
150 DATA 133,252,32,28,194, 

177,100,133,253,72,138, 

72, 152,72,32, #1 840 
160 DATA 181,193,104,168, 

104,170,104,32,28,194, 

234,177,100,201 ,34, #2024 
170 DATA 240,38,201,0,240,25 

,201 ,255,240,18,234,201 , 

127, 176 ,49, #2245 
180 DATA 201,0,176,9,32,28, 

194,76,250,192,76,0,192, 

76,171, #1673 
190 DATA 193,234,169,13,32, 

12,225,76,84,192,32,12, 

225,165,79, #1743 
200 DATA 201 ,1 ,240,5,169,1, 

76,55,193,169,0,133,79, 

32 ,28, #1382 
210 DATA 194,76,250,192,234, 

165,79,201,0,240,11 ,177, 

100,32,12,#1963 
220 DATA 225,32,28,194,76, 

250,192,177,100,56,233, 

128, 170,152,72, #2085 
230 DATA 160,0,169,160,133, 

255,169,158,133,254,234, 

224,0 ,240,30, #2319 

240 DATA 177,254,201,128,176 
,11,192,255,208,2,230, 
255 ,234,200,76, #2599 

250 DATA 99,193,234,202,192, 
255 ,208,2 ,230,255 ,234, 
200,76,99, 193, #2672 

260 DATA 234,2^,177,254,201, 
128,176,14,32,12,225,192 
,255, 208, 2, #2134 



270 DATA 230,255,234,200,76, 
134,193,234,24,233,127, 
32, 12,225,104, #2313 
280 DATA 168,32,28,194,76, 
250,192,234,32,12,225,32 

,28,194 ,76, #1773 
290 DATA 250,192,234,160,0, 
234,162,0,169,0,133,78, 
234,165 ,253,#2264 
300 DATA 201,0,208,6,165,252 

,201,10,144,30,234,165, 

252, 56,233, #2157 
310 DATA 10,133,252,165,253, 

233,0,133,253,224,255, 

240,4, 232,76, #2463 
320 DATA 191,193,234,230,78, 

1 62 ,0,76,1 91 ,1 93 ,234,165 

,252, 105,48, #2352 
330 DATA 72,165,78,133,253, 

201 ,0,208,11 ,138,200,201 

,10, 144, 13, #1827 
340 DATA 133,252,76,184,193, 

234,138,200,133,252,76, 

184, 193,234, 105, #2587 
350 DATA 48,32,12,225,234, 

1 04 ,32 ,1 2 ,225 ,1 36 ,1 92 ,0 , 

208,246, 96, #1802 
360 DATA 234,192,255,208,2, 

230,101 ,234,200,96,234, 

32 ,18,225 ,201 ,#2462 
370 DATA 13,240,6,149,85,232 

,76,38,194,234,202,134, 

96, 96 ,76, #1871 
380 DATA 0,192,234,169,1,133 

,247,162,0,234,32,18,225 

,201, 47, #1895 
390 DATA 240,6,149,85,232,76 

,67 ,1 94 ,234 ,202 ,1 34 ,96 , 

162, 0,234, #2111 
400 DATA 32,18,225,201,13, 

240,6,149,89,232,76,87, 

194, 234, 202, #1998 
410 DATA 228,96,240,12,176, 

10,169,32,234,232,149, 

89,228,96 ,208, #2199 
420 DATA 248,234,134,83,160 

0,76,84,192,234,24,165, 

102,133,101, #1970 
430 DATA 164,103,162,0,234, 

181,89,145,100,228,96, 

240,10,232 ,32, #2016 
440 DATA 28,194,76,137,194, 

76,57,194,234,162,0,32, 

28 ,194, 177, #1783 
450 DATA 100,213,85,240,6, 



Aplkaciones 



201 ,0,208,240,234,96,234 

,165,101 ,133, #2256 
460 DATA 102,132,103,234,232 

,32,28,194,177,100,213, 

85,208,220,228, #2288 
470 DATA 96,240,187,76,182, 

194,76,57,194,169,0,133, 

251 ,169, 160, #2184 
480 DATA 133,255,169,158,133 

,254,160,0,162,0,177,254 

,213,85 ,240, #2393 
490 DATA 35,201,128,176,49, 

192,255,208,2,230,255, 

200,177,254,201 ,#2563 
500 DATA 128,144,243,192, 

255,208,2,230,255,200, 

230,251 ,165,251 ,201 , 

#2955 

510 DATA 255,240,199,76,216, 
194,192,255,208,2,230, 
255,200, 232,177, #2931 

520 DATA 254,213,85,240,242, 
201 ,128,144,207,233,128, 
213, 85,208, 214, #2795 

530 DATA 165,251,24,105,128, 
133,251 ,162,0,149,85,169 
,0,76,82, #1780 

540 DATA 192 

600 PRINT'TSHIFT+CLR/HOMEU": 
M=49152:F0R Z=0 TO 53: 
C=0:F0R ZZ=0 TO 14:READ 
X:P0KE M,X 

610 PRINT'TCRSR arri baULINEA 
DATA ";PEEK(63}+256*PEEK 
(64) :C=C+X:W=M+1 :NEXT ZZ 
: READ XS 

620 IF VALCRIGHT$(X£,LEN(X$) 
-1 ))<>C THEN PRINT"ERROR 
: VERI FI CAR LA LINE A'": 
END 

630 NEXT Z : READ X:POKE P!,X: 
PRI NT'TSHI FT+ CLR/ HOMED 

DATAS OK" 



Si prefieres utilizer un 
ensambladcr c el csrtuchc 
HESMQN, uti li 23 el si- 
guiente I 1st ado equiva- 
lerte 

DIR. HEXADEC . NEWONIGO 



,C000 E A NOP 
,C0C1 A9 3E IDA #$3E 



, C003 


1 p 

20 


p r- 

OC 


E1 


J SR 


rt* r~ A Pt P 

$E1 UC 


p p r\s 

,C006 


i\ Pi 

A9 


00 




LDA 


#$00 


, C0U8 


O P 

85 


F7 




P T A 

STA 


A r- ~7 

9>F7 


pPi P a 

, COOA 


85 


4F 




P T" A 

STA 


S4F 


n(~\r~\ f 

, CuuC 


85 


64 




P T A 

STA 


$64 


, COOE 


n Pi 

A9 


08 




LDA 


ji A>f~\ O 


, C010 


n p 

85 


65 




STA 


$65 


,C012 


20 


12 


E1 


JSR 


SE11 2 


r>C\ A V 

, CO 1 5 


C9 


4C 




CMP 


#S4C 


,C017 


F0 


32 




BEQ 


rt» P Pi / 

SC04B 


/■* Pt A r\ 

, C019 


C9 


52 




CMP 


#$52 


, CL1 B 


Fu 


6B 




BEQ 


$CU8o 


, CU1 D 


C9 


46 




P nnpv 

CMP 


#$46 


, C1 1 F 


F0 


A r- 

1 F 




BEQ 


tf" P Pi / n 

$CU4G 


, C021 


C9 


45 




CMP 


#$45 


,C023 


F0 


A A 

1 A 




BEQ 


^f* pPt "7 r* 

$Cu3 F 


, C025 


C9 


4B 




CMP 


#$4B 


, C02 f 


1— p» 

F0 


63 




BEQ 


$C08C 


, C029 


ft O 

A9 


45 




LDA 


#$4;j 


,C02B 


20 


Pi f* 

0C 


E1 


J SR 


$E1 OC 


, C02E 


A9 


52 




LDA. 




, Cu3u 


20 


OC 


r- ^ 

E1 


JSR 


$E1 OC 


, C033 


pi 

20 


0C 


r~ A 

E1 


J SR 


(t* r* ^ Pi a 

$E1 OC 


P C'~7 / 

,C036 


A9 


Pi r*v 

0D 




LDA 


#$0D 


, C038 


20 


0C 


E1 


JSR 


SE10C 


,C03B 


4C 


00 


CO 


JMP 


SC000 


, C03E 


EA 






NOP 




, C03 F 


60 






RTS 




fCt 1 p. 

, C040 


EA 






NOP 




,C041 


ft "*i 

A.2 


Pi O 

00 




LDX 


#$00 


, CD43 


ft f~\ 

A9 


A5 




LDA 


#$A5 


r»P / p 

, C045 


95 


C P 

55 




STA 


$55, X 


, C04f 


E8 






INX 




, C048 


A C 


4E 


CO 


JMP 


{7 Pi / p 

$CU4E 


, C04B 


EA 






NOP 




, C04C 


ft 

A2 


00 




LDX 


Ji ft* Pi Pi 

#$00 


, C04E 


EA 






NOP 




, C04F 


**> PI 

20 


26 


C2 


J SR 


$C226 


, C052 


ft P\ 

AO 


Pi Pt 

00 




LDY 


#$00 


, C054 


EA 






NOP 




, C055 


B 1 


64 




LDA 


($64; , Y 


, C05f 


C9 


00 




CMP 


#$00 


, C059 


r% P. 

DO 


Pi "7 

07 




BNE 


SC062 


ITX C Fi 

, CloB 


*i n 

du 


O P 

9E 


CU 


JSR 


tf" P C\ Pi P 

4>LUv E 




ro 


uu 






ff*UU 




FP 
r \j 


QF 
7 c 




RF fl 


$rnnn 


,C062 


EA 






NOP 




,€063 


A2 


00 




LDX 


#$00 


, C065 


D5 


55 




CMP 


$55, X 


, C067 


DC 


18 




BNE 


SC081 


,C069 


A5 


65 




LDA 


$65 


,C06B 


85 


66 




STA 


$66 


,C06D 


84 


67 




STY 


$67 


,C06F 


EA 






NOP 




,C070 


E4 


60 




CPX 


$60 



,C072 


r* P 

F0 


P / 

56 




BEG 


$C0CA 


, C074 


E8 






INX 




PP» —7 P 

, C075 


20 


1 C 


C2 


JSR 


$C21 C 


, C078 


B1 


64 




LDA 


C$64) ,Y 


p n "7 a 

, CU f A 


D5 


55 




CMP 


$55,X 


t-.r\—j r 

, C07C 


DU 


03 




BNE 


ft- PPl O *1 

SCU81 


,CU7E 


/ p 

4C 


6 F 


PPi 

CO 


J MP 


(t* p Pi /" r 

$CU6 F 


, C081 


EA 






NOP 




,C082 


Pi p 

20 


1 C 


C2 


JSR 


$C21 C 


APtn P 

,C085 


4C 


P / 

54 


CO 


J MP 


r> f~\t~ 1 

$C054 


, CU88 


r- ft 

EA 






NOP 




, C089 


4C 


3C 


C2 


1 fUfl Pi 

J MP 


$L£!3 C 


,C08C 


A2 


00 




LDX 


#$00 


, C08E 


*i P 

20 


A *1 

12 


r— A 

E1 


JSR 


$E112 


, C091 


C9 


P IS. 

OD 




CMP 


#$C)D 


,C093 


r— P. 

F0 


06 




BEQ 


$C09B 


,C095 


95 


r P 

55 




STA 


th P P \/ 

$55 ,X 


, C097 


E8 






INX 




, C098 


4C 


8E 


CO 


JMP 


$C08E 


, C09B 


4C 


CA 


C2 


JMP 


$C2CA 


,C09E 


EA 






NOP 




, C09 F 


20 


1 c 


C2 


JSR 


$C21 C 


, C0A2 


B1 


64 




LDA 


($64) , Y 


,C0A4 


C9 


00 




CMP 


jj et* f~) P\ 

#$00 


,C0A6 


DO 


A <- 

1 C 




BNE 


$C0C4 


, C0A8 


20 


A f 

1 C 


C2 


t P r» 

J SR 


$021 C 


,C0AB 


B1 


64 




LDA 


( $64) , Y 


,C0AD 


C9 


PPi 

00 




CMP 


#$00 


P r\ ft r* 

,C0AF 


FG 


12 




BEQ 


rt"* PP P"7 

$Cuti 


, COBl 


20 


A r* 

1 C 


C2 


JSR 


d> P 1 P 

$C21 C 


, C0B4 


a P 

A5 


65 




LDA 


$65 


PPl T~> / 

, C0B6 


85 


5 F 




P "7" A 

S i A 


$5 F 


,C0B8 


Pn O 

98 






TY A. 




,C0B9 


O P 

85 


P r* 

5E 




STA 


rt C r~ 

$5E 


,C0BB 


20 


1 C 


Ct: 


1 P Pj 

JSR 


$ Cc I C 


, C0BE 


*1 Pi 

20 


A r> 

1 C 


C2 


1 P n 

J SR 


$Cd1 C 


,C0C1 


B 1 


64 




LDA 


($64) ,Y 


, C0C3 


60 






RTS 




,C0C4 


20 


1 C 


C2 


J SR 


$C21 C 


,C0C7 


4C 


B 1 


p P: 

CO 


J MP 


fl" 1 P P, r>rt 


,C0CA 


EA 






NOF 




,C0CB 


«. P 

A5 


F7 




LDA 


$F7 


,C0CD 


C9 


r~\ a 

01 




CMP 


#$01 


,C0CF 


IS P 

DO 


03 




BNE 


$C0D4 


,C0D1 


20 


7F 


C2 


JSR 


$C27F 




ft. c 






LDA 


etc: c 




AP 
n© 






TRY 




,C0D7 


A5 


5F 




LDA 


$5F 


,C0D9 


85 


65 




STA 


$65 


,C0DB 


A9 


00 




LDA 


#$00 


,C0DD 


85 


64 




STA 


$64 


,C0DF 


B1 


64 




LDA 


($64),Y 


,C0E1 


85 


FC 




STA 


$FC 


,C0E3 


20 


1C 


C2 


JSR 


$C21C 


,C0E6 


Bl 


64 




LDA 


($64), Y 



INPUT 55 



Aplicaciones 



,C0E8 


85 


p T\ 

FD 




STA 


SF D 


P A P / 

,C1 56 


AA 






"T ft \f 

TAX 




, 1 1 BV 


A. 2 


UU 




LDX 


JJrt- PtPi 

#$uo 


,C0EA 


48 






pm i n 

PHA 




,C157 


98 






■7* \/ ft 

TYA 




CA v\r\ 

, L I BB 


a n 

A9 


nn 
UU 




LDA 


#$00 


,C0EB 


8A 






T V A 

TXA 




, CI 58 


48 






ni i ft 

PHA 




, L 1 bJU 




/ r 




STA 


$4E 


,C0EC 48 






PM 1 ft 

PHA 




,C159 


AO 


00 




LDY 


#$00 


,1 1 Br 


EA 






mp n 

NOP 




,C0ED 98 






TY A 




,C15B 


A9 


AO 




LDA 


#$A0 


/*"t /*n 


A j 


r is 
FD 




1 ft A 

LDA 


iF D 


,C0EE 


48 






r-j 1 I ft 

PHA 




,C15D 


85 


FF 




STA 


$F F 


, 1 1 


CV 


nn 
UU 




P M D 

CMr 


#$uu 


,C0EF 20 B5 


rA 

CI 


JSR 


St 1 Bd 


,C15F 


A9 


9E 




LDA 


±1 f+»Pt r- 

#$9E 


, L 1 L4 


uu 


Uo 




BNE 


2>L 1 L C 


,C0f2 


68 






PLA 




,C161 


85 


FE 




STA 


$FE 


,L I to 


Ab 


FC 




1 f\ ft 

LDA 


rt- 1— /-» 
SF C 


,C0F3 


A8 






TAY 




,C163 


EA 






NOP 




,C1 C8 


C9 


OA 




CMP 


JJ ft* Pi A 

#$0A 


,C0F4 68 






PLA 




,C164 


E0 


00 




CPX 


JJ (V- Pt P 

#$00 


, C1 CA 


90 


A r- 

1 E 




BC C 


$C1 EA 


,C0F5 


AA 






TAX 




,C166 


F0 


1 E 




BEQ 


$C1 86 


,C1 CC 


EA 






NOP 




,C0F6 68 






p»i ft 

PLA 




,C168 


B1 


FE 




LDA 


($FE) , Y 


,C1 CD 


A5 


FC 




LDA 


rt* r* p 

$FC 


,C0F7 20 1C 


C2 


JSP 


S-C<1 1 C 


,C16A 


C9 


o P. 

80 




CMP 


#$80 


, C1 CF 


38 






P r* P 

SEC 




,C0FA 


EA 






NOP 




, C1 6 C 


B0 


0B 




BCS 


-rh r* A ~7 P\ 

$C179 


,C1D0 


E9 


PV A 

OA 




SBC 


#$0A 


, COFB 


B1 


64 




LDA 


v.S'OA ; , Y 


,C16E 


CO 


FF 




CPY 


#$FF 


, C1 D2 


o P* 

85 


FC 




STA 


rt* r* P 

$FC 


,G0FD 


C9 


22 




Lnr 


H-bcC 


,C170 


rs PI 

DO 


Pi "~i 

02 




BNE 


rt- P A ~7 / 

$C174 


P A f\ / 

,C1 D4 


A5 


FD 




LDA 


$FD 


, COF f 


F0 


26 




p> p a 


& f A O ~7 


,C172 


E6 


FF 




INC 


$F F 


, C1 D6 


E9 


Pi P 

00 




SBC 


JJ rt* PtPi 

#$00 


,C 101 


C9 


f-\ p, 

00 




piw n 
U v lr 


f <tnn 

»4>UU 


,C174 


EA 






NOP 




,C1 D8 


85 


FD 




STA 


$F D 


, C103 


i- Pk 

F0 


a p- 

19 




P» C Pt 

DC U 


3>C I I b 


,C175 


C8 






INY 




, C1 DA 


E0 


FF 




CPX 


jj rt- r* r- 

#$F F 


p a nr 

,C1 05 


C9 


FF 




CMr 


#$FF 


,C176 


4C 


63 


C1 


J MP 


rt-- f A / "7 

$C163 


,C1 DC 


F0 


04 




BEQ 


rt* P A r~ 

$C1 E2 


r>A pi -7 

, G107 


r-l~i 

FO 


.12 




nrA 

BE Q 


$t 1 1 D 


,C179 


EA 






NOP 




, C1 DE 


E8 






INX 




,C109 


EA 






NOP 




,C17A 


CA 






DEX 




,C1 DF 


4C 


BF 


C1 


JMP 


$C1 BF 


, C10A 


C9 


"7 r 

7F 




CMP 


Ji}7r 

ffSr F 


,C17B 


CO 


FF 




CPY 


#$FF 


,C1 E2 


EA 






NOP 




,C10C 


BO 


31 




P P 

BCS 


tf- r 1 T r 

$11.5 F 


,C17D 


DO 


02 




BNE 


$C1 81 


, C1 E3 


E6 


4E 




INC 


rt* / p" 

$4E 


,C10E 


C9 


00 




CMP 


#$UU 


,C17F 


E6 


FF 




INC 


$F F 


,C1E5 


A2 


00 




LDX 


#$00 


,Cn0 


B0 


09 




BCS 


2>C 11 B 


,C181 


EA 






NOP 




,C1 E7 


4C 


BF 


r- A 

C1 


JMP 


$C1 BF 


, C11 2 


20 


1 c 


C2 


J SR 


SC21 t 


,C182 
,C183 


C8 






INY 




,C1 EA 


EA 






NOP 




,C115 


4C 


FA 


CO 


J MP 


$C0FA 


4C 


63 


C1 


JMP 


SC163 


, C1 EB 


A5 


FC 




LDA 


$FC 


, C118 


4C 


00 


CO 


JMP 


SC000 


,C186 


EA 






NOP 




, C1 ED 


/ Pi 

69 


30 




ADC 


#SiU 


, C1 1 B 


4C 


AB 


C1 


J MP 


$C1 AB 


,C187 


18 






CLC 




,C1 EF 


48 






PHA 




, C1 1 E 


EA 






NO P 




,C188 


B1 


FE 




LDA 


($FE) , Y 


, C1 F0 


n P 

A5 


/ p" 

4E 




LDA 


th / p 

$4E 


if* rt A r 

, C1 1 F 


A9 


0D 




LDA 


44 0" Pi IS 

#$UD 


,C18A 


C9 


80 




CMP 


#$80 


,C1 F2 


85 


FD 




STA 


$FD 


, I I £ I 


■on 


u t 


E 1 


i c r* 

J SR 


tf* r~ A Pi P 

SE1 UC 


,C1 8C 


B0 


0E 




BCS 


$C1 9C 


,C1 F4 


C9 


P\ P 

00 




CMP 


JJ tf*Pi pi 

#$uu 




4r 

*+ v. 


S4 


p Pi 

CO 


J MP 


rt- o nr / 

S>CU!>4 


,C18E 


20 


0C 


r— A 

E1 


i P r\ 

J SR 


SE10C 


r* A r- / 

,C1 F6 


Pv P\ 

DO 


0B 




BNE 


$C2Uo 


| v. ILI 


20 


or 


f" rt 

E1 


JSR 


SE 10C 


,C191 


CO 


FF 




CPY 


#$FF 


, C1 F8 


A 

8A 






TXA 




,C12A 


A5 


4F 




1 r\ A 

L DA 


it-/ r 

5>4 F 


,C1 93 


DO 


02 




BNE 


rt- f A Pi "7 

$C1 97 


r~ A r- P. 

,C1 F9 


C8 






INY 




,012c 


C9 


01 




CMP 


4*<f Pll 


,C195 


E6 


FF 




INC 


$FF 


, C1 FA 


p* Pv 

C9 


Pi a 

OA 




CMP 


JJ A 

#3>UA 


,C12E 


FO 


05 




BEQ 


$1 lib 


,C197 


EA 






NOP 




,C1 FC 


PS o 

90 


Pi fN 

0D 




BCC 


$C20B 


,C130 


A9 


01 




LDA 


03 U I 


,C1 98 


C8 






INY 




, C1 FE 


85 


FC 




STA 


fp p- p> 

$FC 


,C132 


4C 


37 


P A 

11 


J MP 


*C1 i r 


,C199 


4C 


86 


s\A 

C1 


J MP 


$C186 


,C200 


4 C 


B8 


P rt 

C1 


JMP 


f*. f A r*» O 

$C1B8 


,C135 


A9 


00 




I r\ a 

LDA 


ff^UU 


,C19C 


EA 






NOP 




, C203 


EA 






NOP 




,C137 


85 


4F 




C T ft 

STA 


2>4 F 


,C19D 


1 8 






CLC 




,C204 


8A 






TXA 




,C139 


20 


1C 




JSR 


2>L^ 1 I 


,C19E 


E9 


7F 




SBC 


#$7F 


,C2C5 


C8 






INY 




,C13C 


4C 


FA 




J Mr 


•puU r A 


, C1 AO 


20 


0C 


r* A 

El 


J SR 


rt* r~ A O P 

$E1 DC 


,C206 


85 


FC 




P T ft 

STA 


d 1 P P 

$FC 


,C13F 


EA 






NO r 




, C1 A3 


68 






PLA 




,C208 


4C 


B8 


r> A 

C1 


J MP 


rt* P rt r" O 

$C 1 Eo 


,C140 


A5 


4F 




l_ U r. 


^4 F 


, CI A4 


A O 

Ac 






T A V 

1 AY 






C A 

h A 






MAD 

NUr 




,C142 


C9 


00 




CMP 


#$00 


n nc 
, w I ro 


£_ U 


1 r 




1 Q R 
o o rs 


$r?l r 


c? nr 

, Lc. U U 




-J \J 




Ar>r 


#$30 


,C144 


F0 


0B 




BEQ 


$C151 


, t i nO 




F A 




1 MP 


SfOFA 


r?0F 


20 


0C 


E1 

1 l 


JSR 

*J \J l\ 


$E1 CC 


,C146 


B1 


64 




LDA 


($64), Y 


C1 AB 


EA 






NOP 




,C211 


EA 






NOP 




,C148 


20 


OC 


E1 


JSR 


SE10C 


, C1 AC 


20 


0C 


E1 


JSP 


$E10C 


,C212 


68 






PLA 




,C14B 


20 


1C 


C2 


JSR 


$C21 C 


,C1 AF 


20 


1C 


C2 


JSR 


$C21 C 


,C213 


20 


OC 


El 


JSR 


$E10C 


,C14E 


4C 


FA 


CO 


J MP 


$C0FA 


,C1 B2 


4C 


FA 


CO 


JKiP 


SC0FA 


,C216 


88 






DEY 




,C151 


B1 


64 




LDA 


($64), Y 


,C1B5 


EA 






NOP 




,C217 


CO 


00 




CPY 


#$00 


,0153 


38 






SEC 




,C1B6 


AO 


00 




LDY 


#$00 


,C219 


DO 


F6 




BNE 


$C211 


,C154 


E9 


80 




SBC 


#$80 


,C1B8 


EA 






NOP 




,C21B 


60 






RTS 





6 INPUT 



,C21 C 


E A 






NOP 




,C21D 


CO 


FF 




CPY 


#$FF 


,C21F 


DO 


02 




BNE 


$C223 


,C221 


E6 


65 




inc 


$65 


,C223 


EA 






NOP 




,C224 


C8 






I NY 




,C225 


60 






RTS 




,C226 


EA 






NOP 




,C227 


20 


12 


El 


JSR 


SE112 


,C22A 


C9 


OD 




CMP 


#$0D 


,C22C 


FO 


06 




BEQ 


SC234 


,C22E 


95 


55 




STA 


$55,X 


,C230 


E8 






INX 




,C231 


4C 


26 


C2 


J MP 


SC226 


,C234 


EA 






NCP 




,C235 


CA 






DEX 




,0236 


86 


60 




STX 


$60 


,C238 


60 






RTS 




,C239 


4C 


00 


CO 


J MP 


$C0O0 


,C23C 


EA 






NOP 




,C23D 


A9 


01 




LDA 


#$01 


,C23F 


85 


F7 




STA 


SF7 


,C241 


A2 


00 




LDX 


#$00 


,C243 


EA 






NOP 




,C244 


20 


12 


E1 


JSR 


SE112 


,C247 


C9 


2F 




CMP 


#$2F 


,C249 


FO 


06 




BEQ 


$C251 


,C24B 


95 


55 




STA 


$55, X 


,C24D 


E8 






INX 




,C24E 


4C 


43 


C2 


J MP 


$C243 


,C251 


EA 






NOP 




,C252 


CA 






DEX 




,C253 


86 


60 




STX 


$60 


,C255 


A2 


00 




LDX 


#$00 


,C257 


EA 






NOP 




,C258 


20 


12 


E1 


JSR 


SE112 


,C25B 


C9 


OD 




CMP 


#$0D 


,C25D 


FO 


06 




BEG 


$C265 


,C25F 


95 


59 




STA 


$59, X 


,C261 


E8 






INX 




,C262 


4C 


57 


C2 


J MP 


$C257 


, :263 


EA 






NOP 




,C266 


CA 






DEX 




,C267 


E4 


60 




CPX 


$60 


,C269 


FO 


OC 




BEQ 


$C277 


,026b 


BO 


OA 




BCS 


SC277 


, Zlkx> 


Ay 


2D 




LDA 


— co n 
ft-bdXJ 




h A 






k, r\ d 




, L£- ( U 


CO 










. C271 


95 


59 




STA 

w i n 


$59, X 


,C273 


E4 


60 




CPX 


$60 


,C275 


DO 


F8 




BNE 


$C26F 


,C277 


EA 






NOP 




,C278 


86 


53 




STX 


$53 


,C27A 


AO 


00 




LDY 


#$00 



, C27C 4C 54 CO J MP 

,C27F EA NOP 

,C280 18 CLC 

, C2S1 A5 66 LDA 



$C054 ,C28A B5 

,C28C 91 
,C28E E4 

$66 ,C290 FO 



59 LDA $59, X 
64 STA ($64), Y 

60 CPX $60 
OA BEQ $C29C 



,C283 85 65 
,C285 A4 67 
,C287 A2 00 
,C289 EA 



STA $65 
LDY $67 
LDX #$00 
NOP 



,C292 E8 INX 
,C293 20 1C C2 JSR $C21 C 
,C296 4C 89 C2 JMP $C289 
,C299 4C 39 C2 J MP $C239 

INPUT 



Aplicaciones 



,C29C 


EA 






NOP 




,C2CC 


85 


FB 


,C29D 


A2 


00 




LDX 


#$00 


,C2CE 


A9 


AO 


,C29F 


20 


1C 


C2 


JSR 


SC21 C 


,C2D0 


85 


FF 


,C2A2 


B1 


64 




LDA 


($64) , Y 


,C2D2 


A9 


9E 


,C2A4 


D5 


55 




CMP 


$55, X 


,C2D4 


85 


FE 


,C2A6 


F0 


06 




BEQ 


$C2AE 


,C2D6 


AO 


00 


,C2A8 


C9 


00 




CMP 


#$00 


,C2D8 


A2 


00 


,C2AA 


DC 


FO 




BNE 


$C29C 


,C2DA 


B1 


FE 


,C2AC 


EA 






NOP 




,C2DC 


D5 


55 


,C2A.D 


60 






RTS 




,C2DE 


FO 


23 


,C2AE 


EA 






NOP 




,C2E0 


C9 


80 


,C2AF 


A5 


65 




LDA 


$65 


,C2E2 


BO 


31 


,C2B1 


85 


66 




STA 


$66 


,C2E4 


CO 


FF 


,C2B3 


84 


67 




STY 


$67 


,C2E6 


DO 


02. 


,C2B5 


EA 






NOP 




,C2E8 


E6 


FF 


,C2B6 


E8 






INX 




,C2EA 


C8 




,C2B7 


20 


1C 


C2 


JSR 


SC21 C 


,C2EB 


B1 


FE 


,C2BA 


B1 


64 




LDA 


($64), Y 


,C2ED 


C9 


80 


,C2BC 


D5 


55 




CMP 


$55, X 


,C2EF 


90 


F3 


,C2BE 


DO 


DC 




BNE 


$C29C 


, C2F1 


CO 


FF 


, C2 CO 


E4 


60 




CPX 


$60 


,C2F3 


DO 


02 


, C2 C2 


FO 


BB 




BEQ 


$C27F 


,C2F5 


E6 


FF 


,C2C4 


4C 


B6 


C2 


J MP 


$C2B6 


,C2 F7 


C8 




,C2 C7 


4C 


39 


C2 


JMP 


$C239 


,C2F8 


E6 


FB 


,C2CA 


A9 


00 




LDA. 


#$00 


,C2FA 


A5 


FB 



STA 


$FB 


,C2FC 


C9 


FF 




CMP 


#$FF 


LDA 


#$A0 


,C2FE 


FO 


C7 




BEQ 


$C2C7 


STA 


$FF 


,C300 


4C 


D8 


C2 


J MP 


SC2D8 


LDA 


#$9E 


,C303 


CO 


FF 




CPY 


#$FF 


STA 


$FE 


,C305 


DO 


02 




BNE 


$C309 


LDY 


#$00 


,C307 


E6 


FF 




INC 


$FF 


LDX 


#$00 


,C309 


C8 






INY 




LDA 


($FE),Y 


,C30A 


E8 






INX 




CMP 


$55, X 


,C30B 


B1 


FE 




LDA 


($FE),Y 


BEQ 


$C303 


,C30D 


D5 


55 




CMP 


$55, X 


CMP 


#$80 


,C30F 


FO 


F2 




BEG 


$C303 


BCS 


$C315 


,C311 


C9 


80 




CMP 


#$80 


CPY 


#$FF 


,C313 


90 


CF 




BCC 


$C2E4 


BNE 


$C2EA 


,C315 


E9 


80 




SBC 


#$80 


INC 


$FF 


,C317 


D5 


55 




CMP 


$55, X 


INY 




,C319 


DO 


D6 




BNE 


$C2F1 


LDA 


($FE),Y 


,C31B 


A5 


FB 




LDA 


$FB 


CMP 


#$80 


,C31D 


18 






CLC 




BCC 


$C2E4 


, C31 E 


69 


80 




ADC 


#$80 


CPY 


#$FF 


,C320 


85 


FB 




STA 


$FB 


BNE 


$C2F7 


,C322 


A2 


00 




LDX 


#$00 


INC 


$FF 


,C324 


95 


55 




STA 


$55, X 


INY 




,C326 


A9 


00 




LDA 


#$00 


IN'C 


$FB 


,C328 


4C 


52 


CO 


J MP 


$C052 



LDA $FB 



LOS MEJORES DE INPUT 
COMMODORE 



PUESTO TITULO PORCENTAJE 

1° Commando 18,2 % 

2° Green Beret 15,5% 

3° Sky fox 12,3% 

4. ° Kung fu master 10,2% 

5. ° Rambo 9,9% 

6° Uridium 9,6% 

7. ° Hardball 9,3% 

8. ° The Eidolon 5,3% 

9. ° The way of the tiger 4,9% 

10.° Mision lmposible 4,8% 



100% 

Para la confeccion de esta relacion unicamente se nuestros lectores de acuerdo con la seccidn «La 
nan tenido en cuenta las votaciones enviadas por Mejores de lnput». 



Octubre de 19> 




TRASLADAN TODA SU ACCION A TU ORDENADOR 

ii C0NV1ERTETE EN SU PROTAGONISTA !! 

DISTRIBUTOR EXCLUS1VO PARA ESPANA: ERBE SOFTWARE. C/. ST A. ENGRACIA, 17 
28010 MADRID. TEL. (91) 447 3410 - DELEGACION BARCELONA, AVDA. MISTRAL, N.° 10 - TEL. (93) 432 07 



KIT DE UTILIDADES VORPAL 



EL V/orpaL Utility Kit es urt 
conjunto de herramientas de 
software destinadas a La 
unidad de diskettes 1541, 
desarroLLado por Epyx y 
recientemente distribuido 
en nuestro pais. Una 
carpeta incluye el disco y 
un manual de instruciones 
en castellano. 
El Vorpal presenta un menu 
de 5 opciones : 

(a) -Volver a I BASIC 

(b) -Ut i lidades para 
f l cheros 

(c) -Alineamiento de la 
cabeza y control, de La 
velocidad de giro deL motor 

Cd>-Uti Lidades Vorpal 
(e)-Instalaci An de 
cargadores . 

En terminos genera les se 
puede decir que el invento 
de Epyx es un multi pli cador 
de velocidad. 

Realmente,el incremento en 
La velocidad de 
transferencia de los datos 
entre order, ad or y unidad de 
disco se basa en un cambio 
del sistema operative del 
manejo de discos, realizado 
mediante software- Se 
altera es el contehido del 
kernal de La unidad al 
tiempo que se define un 
nuevo tipo de fichero, 
Llamado VorpaL. 
Cuandc se lee y visualiza 
el etf rectorio del disco 
aparecen a la cerecha de 
Lcs nombres de los fi cheros 
t res Letras, que indican el 
tipo de que se trata: PRG= 
Programa / SEQ= Secuencial, 
USR= Usuario, REL= 
Relative. Buenc, pues el 
VorpaL produce una nueva 
delinicion: SR?. 
La segunda epeien deL menu 
permite elegir de entre un 

60 INPUT 



amplio surtido de 
posibi lidades tales como 
rename disk, validate, 
format ( formateo en 25 
segun.dos ) , 

de lete, .etc . . . . 1 1 pi cos deL 

DOS (disk operating system) 
wedge. Sin embargo otras 
uti lidades vienen a 
enriquecer los recursos del 
usuario de disco. Pack es 
un programa de copia rapida 
que permite rescartar los 




fi cheros VorpaL en otro 
disco a una velocidad 
respetable. Change file 
type convierte Los fi cheros 
de cualquiera de los 5 
tipos en cualquiers de los 
otros A; estc es de PR6 a 
SR?, SEQ a PR6, etc.. Todas 
Las combinaciones son 
posibles aunque La 
verdadera ventaja consiste 
en pasar los fi cheros PRG a 
SR? . 

Otra de Las opciones 



atipicas es protect file y 
su antidoto ur.protect. Son 
comandos que protegen 
( hacen imborrable ) o 
desprotegen (vuelven a 
convertir en borrable ) 
cualquier tipo de fichero 
incluido el SR?. Esta 
utilidad es bastante 
reducida en la practica ya 
que uno no anda borrando 
ficheros, aunque es 
interesante poder 
desproteger alguno 
di rectamente . 
La opcidn set boot file 
permite que el Vorpal 
reorganice el BAM coLocando 
el fichero en primer lugar 
en el directorio , de tal 
manera que Luego baste con 
escribir LOAD"*", 8,1 para 
cargar Lo. 

La tercera opcidn incluye 
un al 4- ador de cabezas. Se 
supone que el ajuste se 
realiza automat i camente sin 
tener que manipular partes 
mecanicas. El programa 
monitoriza la alineacidn 
mediante un nftmero. Si esta 
comprendido entre 1 y 25 la 
alineacidn es buena, entre 
26 y 50 es aceptable y 51 o 
mas indica desastre. No 
tuvimos oportunidad de 
cornprobar su 
f uncionamiento, pues 
nuestras unidades de disco 
indicaban en todo memento 
un 26. 

De un modo igualmente 
sencilLo se puede testear 
La velocidad de giro del. 
disco. Una cifra indica el 
f uncionamiento de La 
unidad. Si esta comprendido 
entre 297 y 303 es 
correcto, en case contrario 
habra que acudir a un 
servicio t£cr.ico. Nuestras 



Revisfade Software 



unidades arrojaron siempre 
un 299 y dos decimates 
vari ables- 

La cuarta opci6n es un 
copiador de discos no 
protegidos. Es bastante 
bueno y sobre tcdo fitit- 
Pcr ctro Lado eL cambio de 
sistema operative del disco 



&DONDE ESTA 

CARMEN 

SANDIEGO? 

Un programs con un nombre 
tan cur lost) no es otra cosa 
que un juego 

conversaci cnal, en el que 
debes atrapar at jefe de 
una organized 6n 
i nternaciona L de ladrones 
prof esiona les cuyo cerebrc 



altera el modo de almacenar 
La informaci An. EL VorpaL 
genera bLoques contiguos 
bi secuenci a Les, de este 
modo se graba pista tras 
pi st a. Este tipo de 
a Imacenamiento no es 
clasico en otros sistemas 
operati vos. 



Nepal qui en rueda una 

pelicula de boxeadores y Le 

han robado una bobina. 

La resolucion de Los cases 

te permiti ra ir 

construyendo un perfll del 

jefe del clan. 

EL juego utiliza ventanas 

muLtiples en Las que ves 

aparecer informes, notas de 

viaje, pi st as, etc.. 

Las ventanas se superponen 

y desaparecen en La medida 



El mane jo de este kit es 
tremendamente facil, reali- 
zandose integramente por 
menus. Lo mas notable es el 
importante aumento de La 
velocidad de trabajo con 
que se dota a Las hasta 5 
unidades .de disco que pueden 
controlarse con el Vorpal. 



estudio de grabaci6n en el 
que se incluye un curso de 
baterla complete y un 
metodo de aprendizaje en La 
maestri a de La tecLa. 
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parece ser La senorita 
Carmen Sandiegc. 
EL nombre cLave que te 
asignar pare La misi6n 
Rockie y eres un egente de 
La Interpol. 
De ahora en adelante 
pasaras un tiempo en Los 
aviones que te LLevan a 
vi si tar a Las i s L a s 
SeycheLLes e incluso a un 
monje budista, al que han 
robado so toga, o a un tal 
Silvester Stulune en eL 



en que van necesi tandose 
para dar mas realidad a La 
t rama . 

★★★★★★★★*★★★★- 

ROCK AND ROLL 
MAMA!! 

Suenas con emu la r a Jaeger 
c FhiLL Co L ins y est as 
frustrado. Rock and RoLL 
Mama te da La solucf 6n. Te 
pone en casa un autentico 



Podras ensayar en La 
bateria unos cuantos 
compases y pedirle aL 
tecnico de La cabina de 
control que reproduzca lo 
que acabas de tocar o que 
cambie algon parametro del 
sonido,etc. 

El programa genera ficheros 
di rect amente compi Lados que 
puedes incLuir en tus 
j uegos . 
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LAS SIRENAS TAMBIEN A MAN 



Las sirenas viven muchos 
anos y normaLmente no 
representan La edad que 
tienen. Este es el caso de 



aspecto humano cuando pisa 
La tierra. 

Su amado queda atrapado 
entre Los restos de un 



controL se reaLiza 
directamente a t raves del 
joystick. La si rena debe 
evitar a La criaturas 




Myrtle, una oronda y 
voluptuosa princesa del 
fondo de los mares que 
acaba de cumplir 112 
primaveras. Sus escamas se 
vuelven mas verdes cuando 
ve al submarinista Gormless 
Gordon. Sin embargo no hay 
graves problemas que Les 
separen, porque toma 



DATOS GENERM.ES 


T1TUL0 Mermaid Madness 




FABRiCANTE Electric Dreams 




ORDENADOR Commodore 64 




TEMA DEL PROGRAMA 




Rescate submarino 








CALIFICACION (Sobre 10 ptos ) 


ORIGINAUDAD 


9 


INTERES 


7,5 


GRAJFICOS 


8,5 


COLOR 


8,5 


SONIDO 


8 


TOTAL 


41,5 



transatlantic hundido y tu 
mi si6n ( La de Mi rt le) , 
consiste en recorrer las 
cuevas en busca de 
elementos que ayuden a 
socorrer al infortunado 
buceador. Es una carrera 
contra el tiempo, pues las 
botellas de oxigeno tienen 
una capacidad limitada. EL 




marinas, que Le robaran 
energla al mas mlrimo roce. 
Una botella inclinada 
representa la cantidad de 
energla vital que posee. El 
hallazgo de nuevas botellas 
ocultas aportara una 
cantidad de energla. 
Para conocer cuan cerca se 
encuentran los amantes en 
cada momento, existe un 
coraz6n palpitante en la 
parte superior de La 
pantalla, que se acelera al 
aumentar la proximidad 
entre embos- 

Tanto los graficos como la 
animacion son excelentes. 
Es un juego ent retenido, 
situado entre la aventura y 
el juego de arcade. 



★★★★★★★★★★★★★★★★★★★★★★★★★★★it 



LA GUARIDA DEL DRAGON 



Alguien poco acertado dijc 
que Las aventuras con 
dragones y princesas eran 
cosas del perdidas en el 
pasado. Nada mas lejos de 
la re I i dad, como vamos a 
ve r . 

Este progre.iTia se remonta 
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mucho t^empc atras, en una 
epoca m5gica, cuando un rey 
I L amado Aethered reinaba en 
un pais gobernado per La 
paz y Los buencs deseos- 
Lugar pleno de increlbles 
tesoros, pero el mas 
preciado por su valor y 



belleza era la propia hija 
del rey, la princesa 
Daphne . 

Un ma I dia tr iste y gris un 
malvado drag6n exigi6 al 
rey y a sus subditos el 
abandono de sus tierras. 
Ante una rotunda negativa 
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rapt 6 a la princesa, 
encerrandola en su palacio 
encantado, en el interior 
de una bola de cristal. 
A partir de ahora ya tienes 
trabaje. Eres Dirk, el 
caballero ertre Los 
cabal lercs, y tienes sole 
un pensarciento: Penetrar 
er la guarida del drag6n, 
destruirle y rescatar a 
Daphne . 

El juego est a dividido en 9 
etapas, cada una de ellas 
proporcicna un paso hacia 
el exito de la empresa. 
La primer a es la caida del 
disco, una pLataforma que 
actua como ascenscr. Unos 
etereos genios malvados te 



eres agredido por 
murcie Lagos, huesos, 
craneos, esqueletos e 
ircluso otras aves a I final 
del. pasiLlo. Observaras una 
caracteM st i ca que aparece 
en otras dos fases 
post eri ores ( el cuarto de 



ft 




DATOS GENERALES 
TITULO Dragon's Lair 
FABRICANTE Software Dreams 
ORDENADOR Commodore 64 

TENIA DEL PROGRAMA 

Aventura medieval 



soplaran con fuerza para 
obligarte a caer fuers del 
disco. Peligro, son 7 las 
malvadas y t ransparentes 
cri aturas. 

Despues veras aparecer una 
planta a la derecha, pero 
no te bajes, puede ser 
mortal. Espera en el disco 
.- foarecera otro genio y la 
pLanta en La que tienes que 
bajar. Wc te entretengas, 
solo tienes unas decimas de 
segundo para saltar. En 
cuanto pise? suelo firme 
puedes lanzar un resp^ro de 
aUvio, porque veras come 
se estrella La plata-fcrrra 
en el fondo del abi srno 
Ya estas en la segunda 
fase: El vestibulo del 
craneo. Ahora debes 
atravesar un pasillc I 
de puertas desde las que 



armas y la habitacion del 
tents cu to, fases 4 y 6 ). 
Los movimientos se aplican 
desde el joystick, en el 
moment c oportuno. Si lo 
haces a destiempo te cuesta 
una vida y solo tienes 5 
vidas. Hay una pista, el 
programa te da un tc-no 
grave cuando haces un 
intento erroneo; pero nucha 
paciencia, porque tendras 
que jugar infinidad de 
veces. 

Si logras pasar esta fase, 
llegas a la cuerda que se 
quema. Tras saltar sob re 
una superficie de pi edr a 
que se va desmoronando, 



tendras que ir de cuerda en 
cuerda saltando como 
Tarzan, con la agravante de 
que Las cuerdas se van 
quemando. 

EL finaL del juego es 
evidente : Una tucha a 
muerte con el drag6n. 





Dragon's Lair est3 basado 
en el juego del rcism© 
titulo que emplea una 
comb ir.ac ion de dibujes 
aniirados en videodisco 
(leido con ayuda de User) 
y video juego. A pesar de 
las enormes diferencias que 
le separan del original, 
esta versidn para 
mi c r oo rdenadcr es de una 
gran altura, tantc per la 
cuidada <m h fo'ad de sus 
g rati cos como per el 
sonido. El 6ni co reproche 
que ! e hacerncs es I a 
I e nt i t ud en r e \ r i c i a r e L 
juego cada vez que se 
pierde una vida. 



Si se te hace difi'cil encontrar INPUT 
en tu kiosco habitual, 
reservalo por adelantado, o haznoslo saber 
para que podamos remediaiio 



CORRUPCION EN MIAMI 



est a a punto 
if : : - . e~7 ~ r se en el 

-.3--: de la corrupciin 
feen Riami hay. Sin 

• • Crockett y Tubbs 
n alU para Limpiar sus 
circuities de cualquier 

=z: ce crimen 
: - i5"' zado . 




Mientras se carga el 
programs aparece un 
revolver humeante junto al 
l.ogotipo de la popular 
eerie televisiva. 
For lo pronto puedes 
pi to tar- via joystick- el 
fastuoso Ferrar i^Testarosa 
de Sonny, eonienzandc a 
patrullar por las calles de 
la ciudad entre las verdes 
palmeras de F I or -"da. Te 
acompana la pegadiza 
melodla rausi cal de la 
serie. El control de un 
coche tan pot e rite se hace 
di 1 1 ci I y puedes 
est re liar 1 si no conduces 
con precauc 4 6n. Una vista 



aerea del entorno del 
autom6vil va desplazandose 
en la medida en que 
avanzas . 

Recibes un soplc en torno a 
un a Li jo de contrabando a 
punto de llegar y has de 
reunir las pruebas y 
evidencias que te lleven a 

DATOS GENERALES 

TITULO Miami Vice 
FABRICANTE Ocean 
ORDENAOOR Commodore 64 

TENIA DEL PROGRAMA 

Investigation policial 

CALIFICACION (Sobre 10 ptos.) 



ORIGINAUDAD 8,5 

INTERES 9 

GRAFICOS 8,5 

COLOR 8,5 

SONIDO 8 

TOTAL 42,5 



sclucioner el case. Has de 
entrevi starte con tus 
contactos habituales en 
deter.Tiinados bares y 
establecimientcs de la 
loca lidad. 

LLegados a un punto de 
interns, ha de a pea rse uno 
de los dos (qui en elijas), 
mientras el otro permanece 
sent ado a I vol ante. En ese 
memento el aspecto de la 
pantslla cambia, mostrando 
el interior del 
establecirriento, a si come 
al detective portando su 
Magnum en la mano. Aqul 
puedes encontarte cor elgun 
sujeto poco reconiendable e 



incluso recogeras la 
heroina si mptemente pasando 
sobre el la. 

A su vez, la pantalla se 
divide en ventanas, 
apareciendo un reloj 
calendario que avanza 
inexcrablemente y un 
indicador da el chivatazo 




cuando pasas ante a I go que 
merece la pena investigar. 
Dispones unicanente de una 
semana para arrestar al 
peligroso mister J. 
Asimisme aparecen las 
punt ua ciones que vas 
lograndc. For otro Lado se 
indica el modo en el que 
esta's irmerso, sea 
busqueda, conducci 6n. . . o 
presto a c'isparar. En todo 
caso siempre puedes eleg'r 
lo que hacer, en f unci on 
del letrero parpadeante. Mo 
puedes reali?ar 60s cosas 
a I mismo tiempo, por lo que 
ha bras de eleglr en todo 
moment c lo mas adecuadc- 
Un corse jo: -f i j ate bien en 
el coche rejey, sobre todo, 
cuida tu pellejo en los 
ant r os del vicic de ^iarrn- 
El progresc en eljuegc es 
lento, pero las emociones 
ocultas, los sensac i ona les 
graticos y la pulioa mosica 
hacen que fiami Vice sea 
cualquier cosa memos 
t ed i esc » 
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Muchos abandonaron en el camino, pero otros (pocos) LLegasteis 
hasta el final en el reto planteado, Finalmente hubo que realizar 
un sorteo, imparcial por supuesto, al que asistimos elementos de 
la redacci6n de INPUT y personal de Anaya Multimedia- 
Los mensajes planteados tenian como respuesta Lo siguiente: 



"ES UNA VIOLENCIA FINGIDA PUES SE TRATA DE 
UN TIPO DE CAJA INACCESIBLE A CUALQUIER 
TIPO DE PALANCA". 

" LAS ATADURAS NO SON DE UN PROFESIONAL DA 
LA IMPRESION DE QUE TENIAN MIEDO DE 
LESIONARLE". 

"TIENE LA COSTUMBRE DE MORDER LAS COLILLAS 
DE LOS CIGARROS QUE FUMA SIN PARAR HASTA 
DESHACERLAS". 

"EN EL REGISTRO EN LA CASA DE LA Victima 
aparecieron las joyas habi Lmente CAMUFLADAS 
BAJO EL SUELO DEL DORMITORIO". 

"A PESAR DE ESTAR BASTANTE QUEMADA EN LA 
COLILLA SE PODIAN DISTINGUIR PERFECTAMENTE 
LAS MARCAS DEJADAS POR LOS INCISIVOS DE UN 
FUMADOR NERVIOSO" u c , 

£3 / f -fx)P 
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El intrepido y sagaz ^ 
descifrador de claves se llama 
Manuel Bautista Lopez. Todo un 
hallazgo para Los servicios de 
inteligencia de cualquier 
pais, que no dudamos se lo 
rifaran cuando este ejemplar 
caiga en sus manos. Todo un 
criptofuturo por delante. 

En la fotografla podemos 
apreciar a nuestro afortunado 
Manuel disfutando de su 
estancia en el PCW Show de 
Londres. Le acompana Santos 
Rodriguez, director de 
producto y delegado de Anaya 
Multimedia para el 
signi f i cati vo evento. 
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La deseada continuacion de "EXPLODING FIST" 
ya es una realidad; FIST II es mucho mas que una segunda parte: 
mas de 100 pantallas y 700 sprites diferentes en las que 
los oponentes al "GRAN MAESTRO" se esconden en bosques, acantilados, 
cavernas y lugares con paisajes que te asombraran. 

"Exploding Fist" fue la revelation; "FIST II", la consagracion . 
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Y lo necesito porque es el mas 128 de todo el 
mercado . Porque es 3 ordenadores en uno so- 
lo, solo con pulsar una tecla. 

Lo necesito porque es compatible con el 
C-64, y todos sus programas. 



commodore 



Lo necesito, porque ya que me decido, quie- 
ro lo mejor. 

Lo necesito . porque todavfa hay un par de vi- 
deo juegos en los que me gana mi vecino 
y eso no puede ser. 
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